Bonjour le forum,
Je fais de nouveau appel à votre expertise VBA. Ci-dessous une image pour illustrer mon propos :
Dans mon code, je recherche d'abord à l'aide de la fonction .Find le titre de la première ligne. Une fois trouvée, le code récupère la valeur de la colonne correspondante (ici 15 car colonne O).
Mon idée est donc d'initialiser une variable i à cette valeur puis de l'incrémenter de façon à mettre une condition sur toutes les colonnes fusionnées avec la cellule 15.
En français mon code donnerait :
recherche numéro colonne où valeur = Titre de la cellule fusionnée à la première ligne ' pas de pb pour cette ligne
i = ce numéro de colonne ' monrange.Column
j = i
Tant que j = i ou que la colonne j est fusionnée avec la colonne i à la première ligne alors
action à réaliser sur chaque colonne j
Fin tant que
j = j + 1
Quelqu'un saurait-il traduire la ligne en rouge en vba ?
Merci par avance !
Je fais de nouveau appel à votre expertise VBA. Ci-dessous une image pour illustrer mon propos :
Dans mon code, je recherche d'abord à l'aide de la fonction .Find le titre de la première ligne. Une fois trouvée, le code récupère la valeur de la colonne correspondante (ici 15 car colonne O).
Mon idée est donc d'initialiser une variable i à cette valeur puis de l'incrémenter de façon à mettre une condition sur toutes les colonnes fusionnées avec la cellule 15.
En français mon code donnerait :
recherche numéro colonne où valeur = Titre de la cellule fusionnée à la première ligne ' pas de pb pour cette ligne
i = ce numéro de colonne ' monrange.Column
j = i
Tant que j = i ou que la colonne j est fusionnée avec la colonne i à la première ligne alors
action à réaliser sur chaque colonne j
Fin tant que
j = j + 1
Quelqu'un saurait-il traduire la ligne en rouge en vba ?
Merci par avance !