Exclure de cellules dans une plage [Résolu/Fermé]

Signaler
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019
-
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019
-
Bonjour,

J'ai créé un formulaire avec une listbox qui contient une plage de cellule. Cependant je souhaiterai que certaines cellules de la plage ne soient pas affichées dans le formulaire (ex : une cellule contenant un total ou des nombres). Cela est-il possible ?

Merci

13 réponses

Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
Bonjour,

  For Each C In Plage
If Not IsNumeric(C.Value) Then
Me.ListBox1.AddItem C.Value
End If
Next C


Cordialement.

Daniel
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

Bonjour,

Merci pour l'info. Désolé mais j'ai fait une erreur ! Dans ma plage il y a que du texte mais il existe des parties genre "total" que je ne veux pas inclure dans mon formulaire. Est-ce possible ?
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
For Each c In plage
If c Like "*total*" = False Then
Me.ListBox1.AddItem c.Value
End If
Next c
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

Cela ne fonctionne malheureusement pas. Voici un exemple qui est illustré dans les images.

La disposition des données et du formulaire est la même que sur mon fichier réel.



Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
Regarde :

danielc0
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
Oups :
If UCase(c.Value) Like UCase("*TOTAL*") = False Then


Danniel
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

Ça marche super merci ! Par contre j'ai également une autre cellule contenant "Ligne Vierge" que je ne veux pas inclure dans le formulaire. Est-ce possible de l'inclure dans le code en plus du "TOTAL" ?
danielc0
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
En supposant que ta cellule ne contienne rien :

Set plage = [A1:A10]
For Each c In plage
If UCase(c.Value) Like UCase("*TOTAL*") = False And c.Value <> "" Then
Me.ListBox1.AddItem c.Value
End If
Next c


Sinon :

Set plage = [A1:A10]
For Each c In plage
If UCase(c.Value) Like UCase("*TOTAL*") = False And _
c.Value <> "Ligne Vierge" Then
Me.ListBox1.AddItem c.Value
End If
Next c


Daniel
danielc0
Messages postés
662
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
7 décembre 2019
45
PS. "Set plage = [Nom onglet! A1:A10] ? "

Oui, sauf si le nom comporte des espaces. Il faut alors, comme dans Excel, le mettre entre apostrophes :

Set plage = ['Nom onglet'! A1:A10] ? 
andy2092
Messages postés
61
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
17 mai 2019

Ça marche niquel merci Daniel !