Rechercher les cellules remplies d'une colonne

Fermé

emerick - 27 févr. 2015 à 14:03
benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 - 27 févr. 2015 à 16:36

Bonjour à tous,

je cherche à détecter les cellules remplies d'une colonne variable, et insérer le texte "oui" en face de chaque cellule remplie.
Exemple :

45 oui
12 oui

10 oui

15 oui

Sachant que entre le 10 et le 15 il y a des cellules vides. (le 12 et le 15 aussi)

Je vous remercie par avance de votre aide,

Cordialement,

A voir également:

Rechercher les cellules remplies d'une colonne
Rechercher ou entrer l'adresse - Guide
Déplacer une colonne excel - Guide
Adresse IP locale : comment la trouver facilement - Guide
Excel additionner des cellules - Guide
Rechercher une chanson - Guide

1 réponse

Réponse 1 / 1

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
27 févr. 2015 à 14:07

Salut,

Es tu obligé de passer par vba ?

Un simple SI ferait l'affaire :

=SI(ESTVIDE(A1;"";"oui")

emerick
27 févr. 2015 à 14:11

Salut,

Oui, je n'ai pas tout dit, mais je souhaiterais faire cette opération dans un programme VBA que je suis en train de mettre en place.

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
27 févr. 2015 à 14:20

Re,

Adapte le code à ton classeur :

For i=1 to 15
IF not isnull(cells(i,1)) then
cells(i,2)="oui"
end if
next i

emerick
27 févr. 2015 à 15:47

Merci bien

mais je n'arrive pas à faire en sorte qu'il applique ce code sur la dernière colonne de mon tableau, sais-tu comment faire stp ?

emerick
27 févr. 2015 à 15:55

J'ai essayé cela :

With Selection
For i = 6 To 1500
If Not IsNull(Cells(i, Range("PZ6").End(xlToLeft))) Then
Cells(i, Range("PZ6").End(xlToLeft).Offset(0, 1)) = "oui"
End If
Next i
End With

mais cela ne marche pas

benol3 Messages postés 569 Date d'inscription lundi 29 juillet 2013 Statut Membre Dernière intervention 7 mai 2015 87
Modifié par benol3 le 27/02/2015 à 16:19

Re,

Essaie ceci :

r = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

For i = 6 To 1500
If Cells(i, r).Value <> "" Then
Cells(i, r + 1).Value = "oui"
End If
Next i

Discussions similaires

recherche à partir de la barre d'adresse

liste de noms par ordre alphabétique

Formule magique excel??????

Discussions similaires

Newsletters