Discussion :

[luko6]

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

[luko6]

j'ai une idée
il suffirait dans ce code peut etre
au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=R[-1]C"

mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=Textbox1"

mais ça marche pas lol

[luko6]

c bon

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 = Userform1!TextBox1.Value
    Range("G6").Select
    Selection.AutoFill Destination:=Range("g6:g" & Range("A5").End(xlDown).Row), Type:=xlFillDefault
 
   TextBox1.Value = ""

merci moi lool