Rechercher les cellules remplies d'une colonne

emerick -  
benol3 Messages postés 570 Date d'inscription   Statut Membre Dernière intervention   -
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:

1 réponse

Réponse 1 / 1
benol3 Messages postés 570 Date d'inscription   Statut Membre Dernière intervention   87
 
Salut,

Es tu obligé de passer par vba ?

Un simple SI ferait l'affaire :

=SI(ESTVIDE(A1;"";"oui")
0
emerick
 
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.
0
benol3 Messages postés 570 Date d'inscription   Statut Membre Dernière intervention   87
 
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
0
emerick
 
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 ?
0
emerick
 
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
0
benol3 Messages postés 570 Date d'inscription   Statut Membre Dernière intervention   87
 
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
0

Discussions similaires

recherche à partir de la barre d'adresse
Sylviane -
Lulin -

11 réponses