Bonjour,
Je suis totalement débutante (voir même nulle) en macro. Je me suis débrouillée en copiant un code que j'ai trouvé dans ce forum. Je voulais copié une ligne de ma feuille1 ("2018") dans ma feuille2 ("Finalisés") lorsque dans la colonne A de ma feuille1 c'est écrit: "Finalisé"
Ça marche! Mais ça me copie seulement les infos des 2 premières colonnes (ce qui est logique parce que la personne au départ avait seulement 2 colonnes dans son tableau. Mais moi j'en ai 8! (A à H) Donc dans les colonnes C à H, c'est inscrit #N/A. Voici mon code:
Sub Transfert()
Dim tablo1, i&, tablo2(), n&
tablo1 = Sheets("2018").Range("A4:H" & Sheets("2018").[A65536].End(xlUp).Row)
For i = 1 To UBound(tablo1)
If tablo1(i, 1) Like "Finalisé" Then
ReDim Preserve tablo2(1, n)
tablo2(0, n) = tablo1(i, 1)
tablo2(1, n) = tablo1(i, 2)
n = n + 1
End If
Next
If n Then
Sheets("Finalisés").[A4:H65536].ClearContents
Sheets("Finalisés").[A4].Resize(n, 8) = Application.Transpose(tablo2)
End If
End Sub
Merci beaucoup!!!
Je suis totalement débutante (voir même nulle) en macro. Je me suis débrouillée en copiant un code que j'ai trouvé dans ce forum. Je voulais copié une ligne de ma feuille1 ("2018") dans ma feuille2 ("Finalisés") lorsque dans la colonne A de ma feuille1 c'est écrit: "Finalisé"
Ça marche! Mais ça me copie seulement les infos des 2 premières colonnes (ce qui est logique parce que la personne au départ avait seulement 2 colonnes dans son tableau. Mais moi j'en ai 8! (A à H) Donc dans les colonnes C à H, c'est inscrit #N/A. Voici mon code:
Sub Transfert()
Dim tablo1, i&, tablo2(), n&
tablo1 = Sheets("2018").Range("A4:H" & Sheets("2018").[A65536].End(xlUp).Row)
For i = 1 To UBound(tablo1)
If tablo1(i, 1) Like "Finalisé" Then
ReDim Preserve tablo2(1, n)
tablo2(0, n) = tablo1(i, 1)
tablo2(1, n) = tablo1(i, 2)
n = n + 1
End If
Next
If n Then
Sheets("Finalisés").[A4:H65536].ClearContents
Sheets("Finalisés").[A4].Resize(n, 8) = Application.Transpose(tablo2)
End If
End Sub
Merci beaucoup!!!