Remplir des cellules vides en VBA [Résolu/Fermé]

Messages postés
2
Date d'inscription
lundi 11 août 2014
Statut
Membre
Dernière intervention
11 août 2014
- - Dernière réponse : Brutalizer
Messages postés
2
Date d'inscription
lundi 11 août 2014
Statut
Membre
Dernière intervention
11 août 2014
- 11 août 2014 à 14:20
Bonjour à tous,

Vu que je ne suis pas encore très familier avec le langage vba, je me tourne vers vous.
Je cherche le code VBA qui me permettra de pouvoir rajouter une lettre, ici la lettre "C", dans mon fichier Excel.
Comme vous pouvez voir d'après mon printscreen, j'ai également des cases vides. Ces lettres "C" doivent donc s'inscrire partout où la case de gauche n'est pas vide.
Auriez-vous une idée ?
Grand merci !
Afficher la suite 

1 réponse

Messages postés
115
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
7
0
Merci
bonjour,

Dans un premier temps calcules le nombre de cellules que comporte ton tableau en fonction de la colonne I avec ce code

Nb_Ligne = cells(rows.count,9).end(xlup).row

Ensuite tu utilises la boucle suivante :

For i = 2 to Nb_Ligne
if cells(i,9) <> "" then
cells(i,10) = "C"
end if
next i
Brutalizer
Messages postés
2
Date d'inscription
lundi 11 août 2014
Statut
Membre
Dernière intervention
11 août 2014
-
Excellent ! Merci énormément !