S
seb
Guest
Salut a tous
c'est bientot la fin de lajournee!!! encore 3 h !!!
J'ai un petit pb je ne comprends rien au vba pourtant je m'obstine voici cidessous le texte que j'ai tape
Sub préparation_offre()
'
' Macro enregistrée le 18/02/2004 par Sebastien doumaro
'
Sheets("Prévisions").Select
' Variable qui affecte la valeur de la ligne à imprimer
numerodeligne = Range("K2").Value
' Variable qui affecte la valeur de la ligne à imprimer
Version = Range("L3").Value
If Range("L3") = 1 Then
Sheets("offre_inter_fr").Select
End If
Sheets("offr_inter_ang").Select
Rem copie du n° de la fiche Exemple : F04-0101
Range("F" & numerodeligne).Select
Selection.Copy
Sheets("Version").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
le but de ma premiere variable est de prendre dans une case un numero de ligne afin de copier une case puis la seconde variable permet de selectionner une pour coller la cellule (il ya 2 feuille ) une version française une version anglaise
J'ai essaye d'etre le plus explicite possible ce n'est pas evident
si quelqu'un a une solution ce serait le top merci a tous par avance et bonne fin de journee tout de meme
c'est bientot la fin de lajournee!!! encore 3 h !!!
J'ai un petit pb je ne comprends rien au vba pourtant je m'obstine voici cidessous le texte que j'ai tape
Sub préparation_offre()
'
' Macro enregistrée le 18/02/2004 par Sebastien doumaro
'
Sheets("Prévisions").Select
' Variable qui affecte la valeur de la ligne à imprimer
numerodeligne = Range("K2").Value
' Variable qui affecte la valeur de la ligne à imprimer
Version = Range("L3").Value
If Range("L3") = 1 Then
Sheets("offre_inter_fr").Select
End If
Sheets("offr_inter_ang").Select
Rem copie du n° de la fiche Exemple : F04-0101
Range("F" & numerodeligne).Select
Selection.Copy
Sheets("Version").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
le but de ma premiere variable est de prendre dans une case un numero de ligne afin de copier une case puis la seconde variable permet de selectionner une pour coller la cellule (il ya 2 feuille ) une version française une version anglaise
J'ai essaye d'etre le plus explicite possible ce n'est pas evident
si quelqu'un a une solution ce serait le top merci a tous par avance et bonne fin de journee tout de meme