Problème avec For .... Next
Résolu
rigaf45
-
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'intervient pour la première fois, j'aurais besoin d'aide s'il vous plait. Je suis en stage en fait je dois mettre en place une saisie automatique des performances fournisseurs. Je suis un débutant en vba c'est pourquoi je bloque avec l'ittération suivante. impossible de faire passer le code pourriez vous me dire où est l'erreur. Merci d'avance.
'Ventilation des réception en fonction de leurs dates, promise date et received date
For i = 1 To nbre
'Cas des avances
If Month(wsS.Cells(i + 1, 12).Value) > j And wsS.Cells(i + 1, 12).Value - wsS.Cells(i + 1, 16).Value > 7 Then
wsA.Rows(wsA.Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = wsS.Rows(i + 1).Value
'Cas des retards
If (Year(wsS.Cells(i + 1, 12).Value) < k Or (Month(wsS.Cells(i + 1, 12).Value) < j And Year(wsS.Cells(i + 1, 12).Value = k))) And wsS.Cells(i + 1, 16).Value - wsS.Cells(i + 1, 12).Value > 4 Then
wsA.Rows(wsR.Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = wsS.Rows(i + 1).Value
Next i
Message d'erreur. Next sans for
J'intervient pour la première fois, j'aurais besoin d'aide s'il vous plait. Je suis en stage en fait je dois mettre en place une saisie automatique des performances fournisseurs. Je suis un débutant en vba c'est pourquoi je bloque avec l'ittération suivante. impossible de faire passer le code pourriez vous me dire où est l'erreur. Merci d'avance.
'Ventilation des réception en fonction de leurs dates, promise date et received date
For i = 1 To nbre
'Cas des avances
If Month(wsS.Cells(i + 1, 12).Value) > j And wsS.Cells(i + 1, 12).Value - wsS.Cells(i + 1, 16).Value > 7 Then
wsA.Rows(wsA.Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = wsS.Rows(i + 1).Value
'Cas des retards
If (Year(wsS.Cells(i + 1, 12).Value) < k Or (Month(wsS.Cells(i + 1, 12).Value) < j And Year(wsS.Cells(i + 1, 12).Value = k))) And wsS.Cells(i + 1, 16).Value - wsS.Cells(i + 1, 12).Value > 4 Then
wsA.Rows(wsR.Cells(Rows.Count, 1).End(xlUp).Row + 1).Value = wsS.Rows(i + 1).Value
Next i
Message d'erreur. Next sans for
A voir également:
- Problème avec For .... Next
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Idm for mac - Télécharger - Téléchargement & Transfert
- Instagram for pc - Télécharger - Divers Communication
- Microsoft store download for pc - Guide
- Winrar for pc - Télécharger - Compression & Décompression
9 réponses
Bonjour.
Si tu utilises VBA, logiquement la structure d'un FOR... NEXT est :
For i=1 To nbre Step 1
...
Next i
Le Step permet de préciser le pas avec lequel ton i va augmenter.
De plus tu avait également oublier les End If.
Cordialement.
Si tu utilises VBA, logiquement la structure d'un FOR... NEXT est :
For i=1 To nbre Step 1
...
Next i
Le Step permet de préciser le pas avec lequel ton i va augmenter.
De plus tu avait également oublier les End If.
Cordialement.
step=1 inutile valeur par défaut!!!!
De plus tu avait également oublier les End If. = merci pour la stéréo§
fais attention aux placards...
De plus tu avait également oublier les End If. = merci pour la stéréo§
fais attention aux placards...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question