VBA Excel copie dans ligne sur condition
Fermé
ninapom
-
23 juil. 2008 à 00:22
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 23 juil. 2008 à 08:10
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 23 juil. 2008 à 08:10
A voir également:
- VBA Excel copie dans ligne sur condition
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Copie cachée - Guide
- Formule excel - Guide
2 réponses
j'ai essayé cela :
Sub macro1
'
' Macro1 Macro
' Macro enregistrée le 14/04/2008 par ninapom
'
Dim CelluleCommande As Range
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
Dim Commande As String
Dim Statut As String
Dim Nblignes As Integer
Dim i As Integer
Dim nblig As Integer
Nblignes = ActiveSheet.UsedRange.Rows.Count
For i = 1 To Nblignes
Set CelluleCourante = Cells(i, 1)
If CelluleCourante.Value = "C" Then
Commande = CelluleCourante.Offset(0, 1).Value
Statut = CelluleCourante.Offset(0, 7).Value
End If
nblig = 1
CelluleSuivante = CelluleCourante.Offset(nblig, 0)
While CelluleSuivante.Value = "P"
CelluleSuivante.Offset(0, 7).Value = Commande
CelluleSuivante.Offset(0, 8).Value = Statut
nblig = nblig + 1
Wend
Next
End Sub
Mais je bloque sur la ligne "CelluleSuivante = CelluleCourante.Offset(nblig, 0)" et je ne comprends pas....
Sub macro1
'
' Macro1 Macro
' Macro enregistrée le 14/04/2008 par ninapom
'
Dim CelluleCommande As Range
Dim CelluleCourante As Range
Dim CelluleSuivante As Range
Dim Commande As String
Dim Statut As String
Dim Nblignes As Integer
Dim i As Integer
Dim nblig As Integer
Nblignes = ActiveSheet.UsedRange.Rows.Count
For i = 1 To Nblignes
Set CelluleCourante = Cells(i, 1)
If CelluleCourante.Value = "C" Then
Commande = CelluleCourante.Offset(0, 1).Value
Statut = CelluleCourante.Offset(0, 7).Value
End If
nblig = 1
CelluleSuivante = CelluleCourante.Offset(nblig, 0)
While CelluleSuivante.Value = "P"
CelluleSuivante.Offset(0, 7).Value = Commande
CelluleSuivante.Offset(0, 8).Value = Statut
nblig = nblig + 1
Wend
Next
End Sub
Mais je bloque sur la ligne "CelluleSuivante = CelluleCourante.Offset(nblig, 0)" et je ne comprends pas....
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
23 juil. 2008 à 08:10
23 juil. 2008 à 08:10
Bonjour,
Set CelluleSuivante = CelluleCourante.Offset(nblig, 0)
mais la prochaine fois précise le message d'erreur, ça peut aider.
eric
Set CelluleSuivante = CelluleCourante.Offset(nblig, 0)
mais la prochaine fois précise le message d'erreur, ça peut aider.
eric
