Remplir des cellules vides en VBA

Résolu/Fermé
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 à 13:51
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 !

1 réponse

WeaponEDGE Messages postés 113 Date d'inscription vendredi 18 juillet 2014 Statut Membre Dernière intervention 21 novembre 2014 9
Modifié par WeaponEDGE le 11/08/2014 à 14:05
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
0
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
Excellent ! Merci énormément !
0