bonjour à tous et encore merci d'avance pour votre aide
voila mon souci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Range("G5").Select
ActiveCell.Value = Userform1!TextBox1
 
Range("G6").Select
 
ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("G6").Select
    Selection.AutoFill Destination:=Range("g6:g" & Range("A5").End(xlDown).Row), Type:=xlFillDefault
 
   TextBox1.Value = ""
ce code marche, le probleme est lorsque je veux changer la valeur d'une ligne en particulier, les lignes en dessous de la case modifiée vont prendre aussi la modif
ce que je voudrais , c'est de ne pas utiliser la formule
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("G6").Select
    Selection.AutoFill Destination:=Range("g6:g" & Range("A5").End(xlDown).Row), Type:=xlFillDefault
mais seulement avoir un range variable du type
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Range("g6:g" & Range("A5").End(xlDown).Row).Select
ActiveCell.Value = Userform1!TextBox1
mais cela ne fonctionne pas avec ce code