Bonjour, j'ai besoin d'aide
j'affiche dans une boite de dialogue une valeur
Si la valeur =3D 4
Je vais sur une feuille je copie une ligne de cinq=20
cellules contigues (I5:M5)
Je vais sur une autre feuille et copie ces valeurs dans=20
une colonne (D10:H10)
Comment traduire cela en code VBA dans une private sub=20
Merci de la r=E9ponse
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
"direct83" a écrit dans le message news: 123501c3df89$c229aa90$ Bonjour, j'ai besoin d'aide j'affiche dans une boite de dialogue une valeur Si la valeur = 4 Je vais sur une feuille je copie une ligne de cinq cellules contigues (I5:M5) Je vais sur une autre feuille et copie ces valeurs dans une colonne (D10:H10) Comment traduire cela en code VBA dans une private sub Merci de la réponse Bonsoir direct83 Tu peux aisément faire presque tout via l'enregistreur de macro. Quand tu as fait cela, tu as une macro qui te copie ta plage dans une autre feuille. Ensuite, la valeur entrée dans la boite de dialogue doit être reprise dans une variable.
Tu reprends le texte de cette macro et en première ligne, tu lui dit d'ouvrir la bonne feuille, suivi de la condition if var = 4 then ....ici le blabla pour copier-coller end if Bonne chance et si cela ne va pas, tu reviens. -- Jacquouille conseille : http://www.excelabo.net
"direct83" <direct83@aol.com> a écrit dans le message news:
123501c3df89$c229aa90$a001280a@phx.gbl...
Bonjour, j'ai besoin d'aide
j'affiche dans une boite de dialogue une valeur
Si la valeur = 4
Je vais sur une feuille je copie une ligne de cinq
cellules contigues (I5:M5)
Je vais sur une autre feuille et copie ces valeurs dans
une colonne (D10:H10)
Comment traduire cela en code VBA dans une private sub
Merci de la réponse
Bonsoir direct83
Tu peux aisément faire presque tout via l'enregistreur de macro.
Quand tu as fait cela, tu as une macro qui te copie ta plage dans une autre
feuille.
Ensuite, la valeur entrée dans la boite de dialogue doit être reprise dans
une variable.
Tu reprends le texte de cette macro et en première ligne, tu lui dit
d'ouvrir la bonne feuille, suivi de la condition
if var = 4 then
....ici le blabla pour copier-coller
end if
Bonne chance et si cela ne va pas, tu reviens.
--
Jacquouille conseille : http://www.excelabo.net
"direct83" a écrit dans le message news: 123501c3df89$c229aa90$ Bonjour, j'ai besoin d'aide j'affiche dans une boite de dialogue une valeur Si la valeur = 4 Je vais sur une feuille je copie une ligne de cinq cellules contigues (I5:M5) Je vais sur une autre feuille et copie ces valeurs dans une colonne (D10:H10) Comment traduire cela en code VBA dans une private sub Merci de la réponse Bonsoir direct83 Tu peux aisément faire presque tout via l'enregistreur de macro. Quand tu as fait cela, tu as une macro qui te copie ta plage dans une autre feuille. Ensuite, la valeur entrée dans la boite de dialogue doit être reprise dans une variable.
Tu reprends le texte de cette macro et en première ligne, tu lui dit d'ouvrir la bonne feuille, suivi de la condition if var = 4 then ....ici le blabla pour copier-coller end if Bonne chance et si cela ne va pas, tu reviens. -- Jacquouille conseille : http://www.excelabo.net
garnote
Salut direct83,
Quelque chose du genre, peut-être ?
Sub Copie_Colle_Si() MPFE = InputBox("Entrez un nombre", "Votre valeur") If MPFE = 4 Then Sheets(1).[i5:m5].Copy Sheets(2).[d10:h10] End Sub
À adapter.
Serge
"direct83" a écrit dans le message de news: 123501c3df89$c229aa90$ Bonjour, j'ai besoin d'aide j'affiche dans une boite de dialogue une valeur Si la valeur = 4 Je vais sur une feuille je copie une ligne de cinq cellules contigues (I5:M5) Je vais sur une autre feuille et copie ces valeurs dans une colonne (D10:H10) Comment traduire cela en code VBA dans une private sub Merci de la réponse
Salut direct83,
Quelque chose du genre, peut-être ?
Sub Copie_Colle_Si()
MPFE = InputBox("Entrez un nombre", "Votre valeur")
If MPFE = 4 Then Sheets(1).[i5:m5].Copy Sheets(2).[d10:h10]
End Sub
À adapter.
Serge
"direct83" <direct83@aol.com> a écrit dans le message de news:
123501c3df89$c229aa90$a001280a@phx.gbl...
Bonjour, j'ai besoin d'aide
j'affiche dans une boite de dialogue une valeur
Si la valeur = 4
Je vais sur une feuille je copie une ligne de cinq
cellules contigues (I5:M5)
Je vais sur une autre feuille et copie ces valeurs dans
une colonne (D10:H10)
Comment traduire cela en code VBA dans une private sub
Merci de la réponse
Sub Copie_Colle_Si() MPFE = InputBox("Entrez un nombre", "Votre valeur") If MPFE = 4 Then Sheets(1).[i5:m5].Copy Sheets(2).[d10:h10] End Sub
À adapter.
Serge
"direct83" a écrit dans le message de news: 123501c3df89$c229aa90$ Bonjour, j'ai besoin d'aide j'affiche dans une boite de dialogue une valeur Si la valeur = 4 Je vais sur une feuille je copie une ligne de cinq cellules contigues (I5:M5) Je vais sur une autre feuille et copie ces valeurs dans une colonne (D10:H10) Comment traduire cela en code VBA dans une private sub Merci de la réponse
