Bonjour
je m'adresse à vous pour m'aider à modifier une macro. J'ai une macro pour copier des valeurs d'une feuille à une autre mais je voudrais que les valeurs ce place dans la collone A & B mais à partir de la ligne 5, j'ai essayer plusieurs choses mais les valeurs sont soit décaler ou j'ai des erreurs. je suis convaincu que la solution est simple mais je n'y arrive pas. merci de votre aide.
Private Sub CommandButton1_Click()
Dim cellule As Range
With Sheets("Rapport Quotidien")
.Range(.[A4], .Range("B" & .[A65536].End(xlUp).Row)).ClearContents
For Each cellule In Range([J28], [J65536].End(xlUp))
If cellule.Value <> "" Then
derlig = .[A65536].End(xlUp).Row + 1
cellule.Offset(0, 6).Copy .Range("A" & derlig)
cellule.Copy .Range("B" & derlig)
End If
Next
End With
End Sub
je m'adresse à vous pour m'aider à modifier une macro. J'ai une macro pour copier des valeurs d'une feuille à une autre mais je voudrais que les valeurs ce place dans la collone A & B mais à partir de la ligne 5, j'ai essayer plusieurs choses mais les valeurs sont soit décaler ou j'ai des erreurs. je suis convaincu que la solution est simple mais je n'y arrive pas. merci de votre aide.
Private Sub CommandButton1_Click()
Dim cellule As Range
With Sheets("Rapport Quotidien")
.Range(.[A4], .Range("B" & .[A65536].End(xlUp).Row)).ClearContents
For Each cellule In Range([J28], [J65536].End(xlUp))
If cellule.Value <> "" Then
derlig = .[A65536].End(xlUp).Row + 1
cellule.Offset(0, 6).Copy .Range("A" & derlig)
cellule.Copy .Range("B" & derlig)
End If
Next
End With
End Sub