Exclure de cellules dans une plage

Résolu/Fermé

andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 13 juin 2018 à 09:13
andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024 - 14 juin 2018 à 14:07

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

A voir également:

Excel exclure une cellule d'une plage
Aller à la ligne dans une cellule excel - Guide
Liste déroulante excel - Guide
Verrouiller cellule excel - Guide
Déplacer une colonne excel - Guide
Excel cellule couleur si condition texte - Guide

4 réponses

Réponse 1 / 4

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
13 juin 2018 à 11:16

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 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
13 juin 2018 à 14:13

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

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
13 juin 2018 à 14:26

For Each c In plage
  If c Like "*total*" = False Then
    Me.ListBox1.AddItem c.Value
  End If
Next c

Réponse 3 / 4

andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
13 juin 2018 à 14:51

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

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
13 juin 2018 à 18:01

Regarde :

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
13 juin 2018 à 18:19

PS. Les majuscules et les minuscules comptent. Si tu veux les ignorer, mets :

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

Daniel

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
13 juin 2018 à 18:21

Oups :

If UCase(c.Value) Like UCase("*TOTAL*") = False Then

Danniel

andy2092 Messages postés 78 Date d'inscription dimanche 13 mai 2018 Statut Membre Dernière intervention 7 février 2024
14 juin 2018 à 10:12

Ç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 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
14 juin 2018 à 11:30

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 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
14 juin 2018 à 11:33

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] ?

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Excel : colorer une cellule sous condition d'une autre ?

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Discussions similaires

Newsletters