problème sur une boucle for

[sebounechouchou]

bonjour à tous
j'ai un classeur excel dans lequel j'ai plusieurs feuilles, j'ai crée une boucle pour copier ds données sur chacune des feuilles mais la recopie ne se fait que sur une seule feuille!!
Pouvez vous m'aider
voici la syntaxe :

Private Sub CommandButton1_Click()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
a = TextBox1
Sheets("tableau maître").Activate
ActiveSheet.Unprotect
b = Cells(12, 12)
i = 12
j = 12
Do While Cells(i, j) <> ""
j = j + 4
Loop
Cells(i, j) = a
Range("l13", "o44").Select
Selection.Copy Destination:=Cells(13, j)
Range(Cells(14, j), Cells(44, j + 4)).Select
Selection.ClearContents
Next WS
TextBox1.Value = ""
UserForm1.Hide
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("tableau maître").Select
End Sub

 

[Pierrot93]

Re : problème sur une boucle for

Re

pour éviter le message d'erreur :

Application.DisplayAlerts = False
Range("A2:B2").Merge
Application.DisplayAlerts = True

par contre ne conservera qu'une seule valeur.

bonne soirée
@+

 

[sebounechouchou]

Re : problème sur une boucle for

coucou toujours le même code j'ai une erreur sur la passage en route, erreur 1004
Private Sub CommandButton1_Click()
Sheets("tableau maître").Unprotect
Dim Ws As Worksheet

For Each Ws In ThisWorkbook.Worksheets
With Ws
a = TextBox1
b = .Cells(12, 13)
i = 12
j = 13
Do While .Cells(i, j) <> ""
j = j + 4
Loop
.Cells(i, j) = a
.Range(.Cells(i, j), .Cells(i, j + 3)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
.Range("m13", "p48").Copy Destination:=.Cells(13, j)
.Range(.Cells(14, j), .Cells(44, j + 3)).ClearContents
End With
Next Ws

TextBox1.Value = ""
UserForm1.Hide
Sheets("tableau maître").Protect
End Sub

 

[Pierrot93]

Re : problème sur une boucle for

Bonsoir,

si tu veux selectionner des cellules d'une feuille qui n'est pas active, il faut d'abord activer cette dernière... A noter qu'en vba la selection est rarement utile.

bonne soirée
@+

 

[sebounechouchou]

Re : problème sur une boucle for

je sais bien mais je pensais qu'avec ma boucle for each ws j'activais donc la page et puis cela marche avec cette syntaxe là :

Private Sub CommandButton1_Click()
Sheets("tableau maître").Unprotect
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
With Ws
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").Copy Destination:=.Cells(13, j)
.Range(.Cells(14, j), .Cells(44, j + 3)).ClearContents
End With
Next Ws
TextBox1.Value = ""
UserForm1.Hide
Sheets("tableau maître").Protect
End Sub

c'est juste que là je voulais rajouter une ligne pour mettre à la ligne de façon automatique si le texte est trop long

 

[sebounechouchou]

Re : problème sur une boucle for

bonjour je reveins vers vous car je ne trrouve toujours pas de solution à mon problème
pierrot93 m'a bien aidé sur ma boucle for each mais maintenan je veux dans cette boucle faire une mise en forme sur les cellules d'où le code suivant :

For Each Ws In ThisWorkbook.Worksheets
With Ws
a = TextBox1
b = .Cells(12, 13)
i = 12
j = 13
Do While .Cells(i, j) <> ""
j = j + 4
Loop
.Cells(i, j) = a
.Range(.Cells(i, j), .Cells(i, j + 3)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
.Range("m13", "p48").Copy Destination:=.Cells(13, j)
.Range(.Cells(14, j), .Cells(44, j + 3)).ClearContents
End With
Next Ws

TextBox1.Value = ""
UserForm1.Hide
Sheets("tableau maître").Protect
End Sub

mais j'ai une erreur sur le la ligne en rouge erreur 1004 la selection de la méthode range a échoué, merci de votre aide

 

[Pierrot93]

Re : problème sur une boucle for

Bonjour,

il me semble avoir déjà répondu :

https://www.excel-downloads.com/threads/probleme-sur-une-boucle-for.133635/

sinon sélectionner la feuille au préalable :

    .Select
    .Range(.Cells(i, j), .Cells(i, j + 3)).Select

bon après midi
@+

 

[sebounechouchou]

Re : problème sur une boucle for

je vais essayer cette syntaxe pierrot mais moi aussi j'avais répondu que je ne comprennais pas pourquoi la syntaxe précédente fonctionnait avec .merge et qu'ensutie ce la ne fonctionnait plus

 

[Pierrot93]

Re : problème sur une boucle for

Re

C'est la méthode "select" qui ne peut s'appliquer que sur un objet "range" de la feuille active... Par contre tu peux appliquer à ce "range", les propriétés comme "merge" sans que la feuille soit active....

 

[sebounechouchou]

Re : problème sur une boucle for

pierrot tu es génial!!!ça marche merci beaucoup des nuits de sommeil de gagnées grâce à toi!!