Exclure de cellules dans une plage [Résolu/Fermé]
Signaler
andy2092
andy2092
- Messages postés
- 63
- Date d'inscription
- dimanche 13 mai 2018
- Statut
- Membre
- Dernière intervention
- 5 janvier 2021
andy2092
- Messages postés
- 63
- Date d'inscription
- dimanche 13 mai 2018
- Statut
- Membre
- Dernière intervention
- 5 janvier 2021
A voir également:
- Exclure de cellules dans une plage
- Exclure de cellules dans une plage ✓ - Forum - Excel
- Comment exclure des cellules vides d'une liste? ✓ - Forum - Excel
- Compter les cellules d'une plage horaire ✓ - Forum - Bureautique
- Comparer 1 chaine de caractere d'une cellule par rapport plage ✓ - Forum - Excel
- Compter 2 occurrences dans une même cellule sur une plage ✓ - Forum - Excel
4 réponses
danielc0
- Messages postés
- 691
- Date d'inscription
- mardi 5 juin 2018
- Statut
- Membre
- Dernière intervention
- 19 janvier 2021
For Each c In plage
If c Like "*total*" = False Then
Me.ListBox1.AddItem c.Value
End If
Next c
andy2092
- Messages postés
- 63
- Date d'inscription
- dimanche 13 mai 2018
- Statut
- Membre
- Dernière intervention
- 5 janvier 2021
danielc0
- Messages postés
- 691
- Date d'inscription
- mardi 5 juin 2018
- Statut
- Membre
- Dernière intervention
- 19 janvier 2021
andy2092
- 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" ?
danielc0
- Messages postés
- 691
- Date d'inscription
- mardi 5 juin 2018
- Statut
- Membre
- Dernière intervention
- 19 janvier 2021
En supposant que ta cellule ne contienne rien :
Sinon :
Daniel
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
- 691
- Date d'inscription
- mardi 5 juin 2018
- Statut
- Membre
- Dernière intervention
- 19 janvier 2021
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 :
Oui, sauf si le nom comporte des espaces. Il faut alors, comme dans Excel, le mettre entre apostrophes :
Set plage = ['Nom onglet'! A1:A10] ?
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 ?