Besoins explication code VBA

Re : Besoins explication code VBA

bonjour,

Tout marche niquel. mais il me rajoute une date a la fin de la ligne quand elle est copier dans " demandeacceptéacommander" qui m'ennuie un peu.

Cliquez pour agrandir...

A priori, c'est l'instruction ci dessous qui en est la cause :

bon après midi
@+

Re : Besoins explication code VBA

Pierrot93 à dit:

bonjour,



A priori, c'est l'instruction ci dessous qui en est la cause :

Code:

Sheets("demandeacceptéacommander").Range("A" & dernlignecom + 1).Offset(0, 11).Value = Now

bon après midi
@+

Cliquez pour agrandir...

D'accord mais si je l'enléve de



ca me met un probleme d'erreur de syntaxe... Qu'est-ce que tu en pense ? je ne suis pas trop calé en VBA, j'éssaie d'apprendre.

Merci

Re : Besoins explication code VBA

Re,

ca me met un probleme d'erreur de syntaxe... Qu'est-ce que tu en pense ?

Cliquez pour agrandir...

en l'état pas grand chose... A noter manque au moins 2 next, enfin si je vois bien.... pas facile d'analyser un code jeté sur un post....

Re : Besoins explication code VBA

ok merci quand meme pour ton aide. Bonne fin de journée Pierrot93

Re : Besoins explication code VBA

Hello,

Effectivement sans entrer dans le détail tu n'as pas supprimé

Sheets("demandeacceptéacommander").Range("A" & dernlignecom + 1).Offset(0, 11).Value = Now

mais :

Next
Sheets("demandeacceptéacommander").Range("A" & dernlignecom + 1).Offset(0, 11).Value = Now

et il manque un autre next quelque part comme l'a souligné Pierrot93 !

Re : Besoins explication code VBA

Essaye avec ces corrections :


Sub Bouton1_Cliquer()

Dim dernLigneAcc As Integer
Dim dernLigneRefus As Integer
Dim dernlignecom As Integer



For j = 1 To ActiveSheet.Range("A65536").End(xlUp).Row


If ActiveSheet.Range("G" & j).Value = "Acceptée" And ActiveSheet.Range("G" & j).Interior.ColorIndex <> 4 Then

dernLigneAcc = Sheets("accepter").Range("A65536").End(xlUp).Row
For i = 0 To 10
Sheets("accepter").Range("A" & dernLigneAcc + 1).Offset(0, i).Value = ActiveSheet.Range("A" & j).Offset(0, i).Value
ActiveSheet.Range("A" & j).Offset(0, i).Interior.ColorIndex = 4
Next
Sheets("accepter").Range("A" & dernLigneAcc + 1).Offset(0, 10).Value = Now



ElseIf ActiveSheet.Range("G" & j).Value = "Refusée" And ActiveSheet.Range("G" & j).Interior.ColorIndex <> 3 Then

dernLigneRefus = Sheets("refuser").Range("A65536").End(xlUp).Row
For i = 0 To 10
Sheets("refuser").Range("A" & dernLigneRefus + 1).Offset(0, i).Value = ActiveSheet.Range("A" & j).Offset(0, i).Value
ActiveSheet.Range("A" & j).Offset(0, i).Interior.ColorIndex = 3
Next
Sheets("refuser").Range("A" & dernLigneRefus + 1).Offset(0, 10).Value = Now



ElseIf ActiveSheet.Range("G" & j).Value = "Validée mais à commander " And ActiveSheet.Range("G" & j).Interior.ColorIndex <> 8 Then

dernlignecom = Sheets("demandeacceptéacommander").Range("A65536").End(xlUp).Row
For i = 0 To 11
Sheets("demandeacceptéacommander").Range("A" & dernlignecom + 1).Offset(0, i).Value = ActiveSheet.Range("A" & j).Offset(0, i).Value
ActiveSheet.Range("A" & j).Offset(0, i).Interior.ColorIndex = 8

Next


End If

Next

End Sub

Re : Besoins explication code VBA

Bonjour à toute la communauté XLD !

Merci Mintri pour cette correction. c'est perfecto, j'ai appliqué cette modif aux deux auitres ligne et c'est bon


Passe une bonne journée et merci encore