Bonjour à tous!
ça risque d'être très facile ce coup ci mais moi je ne comprend pas.
Voici mon code:
Private Sub CommandButton2_Click()
Dim zelle As Range, i As Byte, zelle2 As Range
i = 1
For Each zelle In Range("c:c")
If zelle.Value = "317" Then
i = i + 1
Range("aa" & i).Value = zelle.Offset(, -2).End(xlUp).Offset(-11, 8).Value & " (" & zelle.Offset(, -2).End(xlUp).Offset(-11, 3).Value & ")"
Range(Cells(zelle.row, 8), Cells(zelle.row, 18)).Copy Destination:=Range("ab" & i)
End If
Next zelle
For Each zelle2 In Sheets("Daten PIP-Bericht_auftrag").Range("c:c")
If zelle2.Value = "317" Then
i = i + 1
Sheets("Daten PIP-Bericht_Projekte").Range("aa" & i).Value = zelle2.Offset(, -2).End(xlUp).Offset(-12, 3).Value
Sheets("Daten PIP-Bericht_Projekte").Range("ab" & i, "al" & i) = sheets("Daten PIP-Bericht_auftrag").Range(Cells(zelle2.row, 8), Cells(zelle2.row, 18))
End If
Next zelle2
End Sub
La ligne en rouge là au dessus ne veut pas passer, le débogueur m'indique une erreur 1004 à chaque fois et je ne sais pas pourquoi. Comme vous le voyez j'essaie de prendre des cellules d'une feuille et de les ajouter dans une autre (ce qui se fait très bien d'habitude...) mais là, même si j'essaie un copier coller, rien y fait. Où est donc ma faute d'ortographe?
Par contre, lorsque j'enlève ce qui est souligné, la procédure fonctionne, mais ne me séléctionne pas la bonne feuille!
Help quoi! Je patauge....
ça risque d'être très facile ce coup ci mais moi je ne comprend pas.
Voici mon code:
Private Sub CommandButton2_Click()
Dim zelle As Range, i As Byte, zelle2 As Range
i = 1
For Each zelle In Range("c:c")
If zelle.Value = "317" Then
i = i + 1
Range("aa" & i).Value = zelle.Offset(, -2).End(xlUp).Offset(-11, 8).Value & " (" & zelle.Offset(, -2).End(xlUp).Offset(-11, 3).Value & ")"
Range(Cells(zelle.row, 8), Cells(zelle.row, 18)).Copy Destination:=Range("ab" & i)
End If
Next zelle
For Each zelle2 In Sheets("Daten PIP-Bericht_auftrag").Range("c:c")
If zelle2.Value = "317" Then
i = i + 1
Sheets("Daten PIP-Bericht_Projekte").Range("aa" & i).Value = zelle2.Offset(, -2).End(xlUp).Offset(-12, 3).Value
Sheets("Daten PIP-Bericht_Projekte").Range("ab" & i, "al" & i) = sheets("Daten PIP-Bericht_auftrag").Range(Cells(zelle2.row, 8), Cells(zelle2.row, 18))
End If
Next zelle2
End Sub
La ligne en rouge là au dessus ne veut pas passer, le débogueur m'indique une erreur 1004 à chaque fois et je ne sais pas pourquoi. Comme vous le voyez j'essaie de prendre des cellules d'une feuille et de les ajouter dans une autre (ce qui se fait très bien d'habitude...) mais là, même si j'essaie un copier coller, rien y fait. Où est donc ma faute d'ortographe?
Par contre, lorsque j'enlève ce qui est souligné, la procédure fonctionne, mais ne me séléctionne pas la bonne feuille!
Help quoi! Je patauge....