Si, la cellule "I21"de la feuille 1, est égal à "Fruit, légume, plantes" alors on copie le contenue de la cellule "I14" de la feuille1 pour le coller dans la colonne "AY" de la feuille "formulaire" dans l'ordre (1 à 150) et ainsi de suite jusqu'a la feuille 150.
Voici ma macro :
Sub macro5()
Dim i As Integer
For i = 1 To 150
Sheets("feuil" & i).Select
If ("I21") = "Fruit, légume, plantes" Then
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Bonjour, If Range("I21") = "Fruit, légume, plantes" Then Daniel
Bonjour à toutes et à tous.
Voici ce que je voudrais faire :
Si, la cellule "I21"de la feuille 1, est égal à "Fruit, légume, plantes" alors on copie le contenue de la cellule "I14" de la feuille1 pour le coller dans la colonne "AY" de la feuille "formulaire" dans l'ordre (1 à 150) et ainsi de suite jusqu'a la feuille 150.
Voici ma macro :
Sub macro5()
Dim i As Integer
For i = 1 To 150 Sheets("feuil" & i).Select If ("I21") = "Fruit, légume, plantes" Then
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Pourriez vous m'aider ?
Je vous remercis d'avance.
Amicalement Max
Bonjour,
If Range("I21") = "Fruit, légume, plantes" Then
Daniel
Bonjour à toutes et à tous.
Voici ce que je voudrais faire :
Si, la cellule "I21"de la feuille 1, est égal à "Fruit, légume, plantes"
alors on copie le contenue de la cellule "I14" de la feuille1 pour le coller
dans la colonne "AY" de la feuille "formulaire" dans l'ordre (1 à 150) et
ainsi de suite jusqu'a la feuille 150.
Voici ma macro :
Sub macro5()
Dim i As Integer
For i = 1 To 150
Sheets("feuil" & i).Select
If ("I21") = "Fruit, légume, plantes" Then
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en
remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a
recopiage du contenue..
Bonjour, If Range("I21") = "Fruit, légume, plantes" Then Daniel
Bonjour à toutes et à tous.
Voici ce que je voudrais faire :
Si, la cellule "I21"de la feuille 1, est égal à "Fruit, légume, plantes" alors on copie le contenue de la cellule "I14" de la feuille1 pour le coller dans la colonne "AY" de la feuille "formulaire" dans l'ordre (1 à 150) et ainsi de suite jusqu'a la feuille 150.
Voici ma macro :
Sub macro5()
Dim i As Integer
For i = 1 To 150 Sheets("feuil" & i).Select If ("I21") = "Fruit, légume, plantes" Then
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Pourriez vous m'aider ?
Je vous remercis d'avance.
Amicalement Max
Merci Daniel ca avance, mais ca me bloque toujours à :
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en
remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a
recopiage du contenue..
Pourriez vous m'aider ?
Je vous remercis d'avance.
Amicalement Max
Merci Daniel
ca avance, mais ca me bloque toujours à :
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Pourriez vous m'aider ?
Je vous remercis d'avance.
Amicalement Max
Merci Daniel ca avance, mais ca me bloque toujours à :
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en
remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a
recopiage du contenue..
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en
remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a
recopiage du contenue..
Je n'ai aucun message d'erreur, rien du tout. j'ai fait un test, en remplaçant le contenue de la cellule I21, mais dans aucun cas, il y a recopiage du contenue..