pierrot_42
XLDnaute Nouveau
Bonjour cher Forum,
J'utilise une macro pour aller chercher des valeurs sur une feuille, les concatener et les coller dans une autre.
Je voudrais maintenant que la macro aille chercher ces valeurs dans plusieurs onglets, les concatène et les colle dans un onglet. Mais j'ai un message d'erreur
mon fichier :
Cijoint.fr - Service gratuit de dépôt de fichiers
screenshot message d'erreur macro
Cijoint.fr - Service gratuit de dépôt de fichiers
J'utilise la macro suivante :
Option Explicit
Sub perfect_steering()
Dim I As Integer
Dim J As Long
Dim K As Byte
Dim Lg As Long
Dim Msg As String
Dim ColDep
Dim ColFin
ColDep = Array(5, 35, 47, 50)
ColFin = Array(34, 46, 49, 61)
Lg = 4
If Range("A1") <> "" Then
Lg = Range("A" & Rows.Count).End(xlUp).Row
End If
For aze = 1 To 4
With Sheets(I)
For J = 11 To .Range("A" & .Rows.Count).End(xlUp).Row
For K = 0 To UBound(ColDep)
Msg = ""
For I = ColDep(K) To ColFin(K)
If .Cells(J, I) <> "" And UCase(.Cells(J, I)) <> "OK" And UCase(.Cells(J, I)) <> "KO" Then
Msg = Msg & .Cells(J, I) & ","
End If
Next I
If Len(Msg) > 0 Then
Cells(Lg, 2 + K) = Left(Msg, Len(Msg) - 1)
End If
Next K
Lg = Lg + 1
Next J
End With
Next aze
Columns("B:E").AutoFit
End Sub
Merci d'avance pour votre aide !
Cordialement,
Pierrot
J'utilise une macro pour aller chercher des valeurs sur une feuille, les concatener et les coller dans une autre.
Je voudrais maintenant que la macro aille chercher ces valeurs dans plusieurs onglets, les concatène et les colle dans un onglet. Mais j'ai un message d'erreur
mon fichier :
Cijoint.fr - Service gratuit de dépôt de fichiers
screenshot message d'erreur macro
Cijoint.fr - Service gratuit de dépôt de fichiers
J'utilise la macro suivante :
Option Explicit
Sub perfect_steering()
Dim I As Integer
Dim J As Long
Dim K As Byte
Dim Lg As Long
Dim Msg As String
Dim ColDep
Dim ColFin
ColDep = Array(5, 35, 47, 50)
ColFin = Array(34, 46, 49, 61)
Lg = 4
If Range("A1") <> "" Then
Lg = Range("A" & Rows.Count).End(xlUp).Row
End If
For aze = 1 To 4
With Sheets(I)
For J = 11 To .Range("A" & .Rows.Count).End(xlUp).Row
For K = 0 To UBound(ColDep)
Msg = ""
For I = ColDep(K) To ColFin(K)
If .Cells(J, I) <> "" And UCase(.Cells(J, I)) <> "OK" And UCase(.Cells(J, I)) <> "KO" Then
Msg = Msg & .Cells(J, I) & ","
End If
Next I
If Len(Msg) > 0 Then
Cells(Lg, 2 + K) = Left(Msg, Len(Msg) - 1)
End If
Next K
Lg = Lg + 1
Next J
End With
Next aze
Columns("B:E").AutoFit
End Sub
Merci d'avance pour votre aide !
Cordialement,
Pierrot
Dernière édition: