S
sebounechouchou
Guest
Bonjour j'ai un souci avec une macro excel!!
j'ai plusieurs feuilles qui ont la même structure, je cherche à copier le texte d'une textbox dans la première cellule non vide d'une ligne et ça sur chaque feuille, voici ma synthaxe :
Private Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Ws As Worksheet
For Each Wb In Application.Workbooks
For Each Ws In Wb.Worksheets
a = TextBox1
b = Cells(12, 12)
i = 12
j = 12
Do While Cells(i, j) <> ""
j = j + 4
Loop
Cells(i, j) = a
Range(Cells(i, j), Cells(i, j + 3)).Merge
Range("l13", "o48").Select
Selection.Copy Destination:=Cells(13, j)
Range(Cells(14, j), Cells(44, j + 3)).Select
Selection.ClearContents
Next Ws
Next Wb
TextBox1.Value = ""
UserForm1.Hide
End Sub
le souci c'est que le texte se copie deux fois sur la première page quand j'ai deux feuilles et non sur la page suivante!!!😡
Pouvez vous m'aider
j'ai plusieurs feuilles qui ont la même structure, je cherche à copier le texte d'une textbox dans la première cellule non vide d'une ligne et ça sur chaque feuille, voici ma synthaxe :
Private Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Ws As Worksheet
For Each Wb In Application.Workbooks
For Each Ws In Wb.Worksheets
a = TextBox1
b = Cells(12, 12)
i = 12
j = 12
Do While Cells(i, j) <> ""
j = j + 4
Loop
Cells(i, j) = a
Range(Cells(i, j), Cells(i, j + 3)).Merge
Range("l13", "o48").Select
Selection.Copy Destination:=Cells(13, j)
Range(Cells(14, j), Cells(44, j + 3)).Select
Selection.ClearContents
Next Ws
Next Wb
TextBox1.Value = ""
UserForm1.Hide
End Sub
le souci c'est que le texte se copie deux fois sur la première page quand j'ai deux feuilles et non sur la page suivante!!!😡
Pouvez vous m'aider
