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

Réponse 1 / 4
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
Signaler
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 ?
Réponse 2 / 4
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
Réponse 3 / 4
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.



Réponse 4 / 4
Messages postés
691
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 janvier 2021
 54
Regarde :

Afficher les 6 commentaires
Signaler
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
Signaler
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" ?
Signaler
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
Signaler
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] ?
Signaler
Messages postés
63
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
5 janvier 2021
Ça marche niquel merci Daniel !
Posez votre question