P
PF
Guest
Bonjour à tous.
Voici mon problème.
J'ai cree un code qui fonctionne très bien lorsque je lui associe un bouton (barre formulaire) mais qui ne fonctionne plus du tout lorsque je lui associe un commandbutton (barre boite à outils controle).
Qui pourrait m'éclairer.
merci d'avance.
Vous trouverez le code ci dessous.
Patrick
Private Sub okfeuil3_Click()
Application.ScreenUpdating = False
Dim counter As Long
Dim compteur As Long
Dim count As Long
Dim countb As Long
counter = 6
Worksheets(3).Activate
Cells(counter, 1).Activate
'Feuille3, cellule repéré par le counter'
'et la colonne 1, sont active'
Do Until Cells(counter, 1) = ""
counter = counter + 1
'effectuer la boucle suivante :'
'tant que la cellule repéré par le counter'
'et la colonne n'est pas vide, rajouté 1 au'
'counter'
Loop
compteur = 0
For X = 6 To counter
If Cells(X, 1).Text = "Recu Bank" Then
' Si Text est égal à "Recu Bank"
compteur = compteur + 1
If compteur = 3 Then
Y = X
For w = 6 To Y
Worksheets(3).Rows(w).Cut
ActiveSheet.Paste Destination:=Worksheets(4).Rows(w)
Next w
For w = 6 To Y
Worksheets(3).Rows(6).Delete Shift:=xlUp
Next w
Else
End If
End If
Next X
count = 1
Worksheets(5).Activate
Cells(count, 1).Activate
'Feuille5, cellule repéré par le counter'
'et la colonne 1, sont active'
Do Until Cells(count, 1) = ""
count = count + 1
'effectuer la boucle suivante :'
'tant que la cellule repéré par le counter'
'et la colonne n'est pas vide, rajouté 1 au'
'counter'
Loop
For w = 6 To Y
Worksheets(4).Rows(w).Cut
ActiveSheet.Paste Destination:=Worksheets(5).Rows(count)
count = count + 1
Next w
For w = 6 To Y
Worksheets(4).Rows(6).Delete Shift:=xlUp
Next w
Worksheets(3).Activate
Application.ScreenUpdating = True
End Sub
Voici mon problème.
J'ai cree un code qui fonctionne très bien lorsque je lui associe un bouton (barre formulaire) mais qui ne fonctionne plus du tout lorsque je lui associe un commandbutton (barre boite à outils controle).
Qui pourrait m'éclairer.
merci d'avance.
Vous trouverez le code ci dessous.
Patrick
Private Sub okfeuil3_Click()
Application.ScreenUpdating = False
Dim counter As Long
Dim compteur As Long
Dim count As Long
Dim countb As Long
counter = 6
Worksheets(3).Activate
Cells(counter, 1).Activate
'Feuille3, cellule repéré par le counter'
'et la colonne 1, sont active'
Do Until Cells(counter, 1) = ""
counter = counter + 1
'effectuer la boucle suivante :'
'tant que la cellule repéré par le counter'
'et la colonne n'est pas vide, rajouté 1 au'
'counter'
Loop
compteur = 0
For X = 6 To counter
If Cells(X, 1).Text = "Recu Bank" Then
' Si Text est égal à "Recu Bank"
compteur = compteur + 1
If compteur = 3 Then
Y = X
For w = 6 To Y
Worksheets(3).Rows(w).Cut
ActiveSheet.Paste Destination:=Worksheets(4).Rows(w)
Next w
For w = 6 To Y
Worksheets(3).Rows(6).Delete Shift:=xlUp
Next w
Else
End If
End If
Next X
count = 1
Worksheets(5).Activate
Cells(count, 1).Activate
'Feuille5, cellule repéré par le counter'
'et la colonne 1, sont active'
Do Until Cells(count, 1) = ""
count = count + 1
'effectuer la boucle suivante :'
'tant que la cellule repéré par le counter'
'et la colonne n'est pas vide, rajouté 1 au'
'counter'
Loop
For w = 6 To Y
Worksheets(4).Rows(w).Cut
ActiveSheet.Paste Destination:=Worksheets(5).Rows(count)
count = count + 1
Next w
For w = 6 To Y
Worksheets(4).Rows(6).Delete Shift:=xlUp
Next w
Worksheets(3).Activate
Application.ScreenUpdating = True
End Sub