Exclure de cellules dans une plage

Résolu

andy2092 Messages postés 81 Statut Membre -
andy2092 Messages postés 81 Statut Membre - 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

Afficher la suite

A voir également:

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

4 réponses

Réponse 1 / 4

danielc0 Messages postés 1946 Statut Membre 238

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 81 Statut Membre

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 1946 Statut Membre 238

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 81 Statut Membre

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 1946 Statut Membre 238

Regarde :

danielc0 Messages postés 1946 Statut Membre 238

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 1946 Statut Membre 238

Oups :

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

Danniel

andy2092 Messages postés 81 Statut Membre

Ç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 1946 Statut Membre 238

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 1946 Statut Membre 238

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

Excel formule : savoir si une cellule contient partie texte

Remplir une cellule (texte) en fonction d'une autre (texte).

Votre réponse

Discussions similaires