Bonjour à tous,
Je viens vers vous car je n'arrive pas trouver solution à mon pb
j'ai créé un userform qui enchaine des inputbox et msgbox
Suite aux infos renseignées, celles-ci s'intègrent dans la feuil2 de mon document mais cette feuille sera masquée en fin de projet.
Je souhaite recopier l'ensemble de ces données sans les lignes vides sur un nouveau classeur (pas de chemin spécifique à intégrer) mais je pense qu'il doit y avoir un pb avec ma macro les données sont recopiées sur la feuil2 de mon doc actif
L'erreur doit être bête je sais mais étant débutante en vba....
De plus, ou dois-je écrire ma procédure pour incrémenter une numérotation de 1 à .... une fois les lignes copiées
Merci à tous ceux qui voudront bien y jeter un oeil
voici mon code
Private Sub CommandButton2_Click()
Dim K, j As Integer
Dim Cel As Range
With Application
.DisplayAlerts = False
ActiveWorkbook.Worksheets(Array("feuil2")).Copy
ActiveWorkbook.Save
ActiveWorkbook.Close False
.DisplayAlerts = True
End With
Dim I As Long
For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
Next I
If Sheets("Feuil2").Range("A5:A" & [A65000].Row).Row >= 1 Then ActiveSheet.Rows.Range("A5:C" & [A65000].Row).ClearContents
With Sheets("Feuil2")
For Each Cel In .Range("B5:B" & .[B65000].End(xlUp).Row)
If Cel <> "" Then
With Sheets("Feuil2")
For j = 1 To 11
.Cells(7 + K, j) = ActiveSheet.Rows.Cells(Cel.Row, j)
Next
K = K + 1
End With
End If
j = 0
Next
End With
msgbox "transfert terminé"
end sub
Je viens vers vous car je n'arrive pas trouver solution à mon pb
j'ai créé un userform qui enchaine des inputbox et msgbox
Suite aux infos renseignées, celles-ci s'intègrent dans la feuil2 de mon document mais cette feuille sera masquée en fin de projet.
Je souhaite recopier l'ensemble de ces données sans les lignes vides sur un nouveau classeur (pas de chemin spécifique à intégrer) mais je pense qu'il doit y avoir un pb avec ma macro les données sont recopiées sur la feuil2 de mon doc actif
L'erreur doit être bête je sais mais étant débutante en vba....
De plus, ou dois-je écrire ma procédure pour incrémenter une numérotation de 1 à .... une fois les lignes copiées
Merci à tous ceux qui voudront bien y jeter un oeil
voici mon code
Private Sub CommandButton2_Click()
Dim K, j As Integer
Dim Cel As Range
With Application
.DisplayAlerts = False
ActiveWorkbook.Worksheets(Array("feuil2")).Copy
ActiveWorkbook.Save
ActiveWorkbook.Close False
.DisplayAlerts = True
End With
Dim I As Long
For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
Next I
If Sheets("Feuil2").Range("A5:A" & [A65000].Row).Row >= 1 Then ActiveSheet.Rows.Range("A5:C" & [A65000].Row).ClearContents
With Sheets("Feuil2")
For Each Cel In .Range("B5:B" & .[B65000].End(xlUp).Row)
If Cel <> "" Then
With Sheets("Feuil2")
For j = 1 To 11
.Cells(7 + K, j) = ActiveSheet.Rows.Cells(Cel.Row, j)
Next
K = K + 1
End With
End If
j = 0
Next
End With
msgbox "transfert terminé"
end sub