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

Signaler
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020
-
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020
-
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

4 réponses

Messages postés
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
53
Bonjour,

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


Cordialement.

Daniel
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

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
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
53
For Each c In plage
If c Like "*total*" = False Then
Me.ListBox1.AddItem c.Value
End If
Next c
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

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
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
53
Regarde :

Messages postés
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
53
Oups :
If UCase(c.Value) Like UCase("*TOTAL*") = False Then


Danniel
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

Ç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" ?
Messages postés
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
53
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
Messages postés
684
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
5 septembre 2020
53
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] ? 
Messages postés
62
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
31 mars 2020

Ça marche niquel merci Daniel !