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

Signaler
Messages postés
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021
-
Messages postés
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021
-
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
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
54
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
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021

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
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
54
For Each c In plage
If c Like "*total*" = False Then
Me.ListBox1.AddItem c.Value
End If
Next c
Messages postés
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021

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
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
54
Regarde :

Messages postés
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
54
Oups :
If UCase(c.Value) Like UCase("*TOTAL*") = False Then


Danniel
Messages postés
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021

Ç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
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
54
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
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
54
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
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021

Ça marche niquel merci Daniel !