Rechercher les cellules remplies d'une colonne

emerick -  
benol3 Messages postés 718 Statut Membre -
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,

1 réponse

  1.
    benol3 Messages postés 718 Statut Membre 87
     
    Salut,

    Es tu obligé de passer par vba ?

    Un simple SI ferait l'affaire :

    =SI(ESTVIDE(A1;"";"oui")
    0
    1. 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
    2. benol3 Messages postés 718 Statut Membre 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
    3. 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
    4. 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
    5. benol3 Messages postés 718 Statut Membre 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

RETROUVER VENDEUR Sur le bon coin
PTM_026 -
Didi64_549 -

4 réponses
Le bon coin, comment retrouver un pseudonyme ?
HYPERSENSIBLE -
Robin -

8 réponses