Valou94250
Nouveau membre
Bonjour à tous,
Voilà je planche depuis une semaine sur l'amélioration d'un fichier excel. Je sollicite votre aide car cela fait 24h que je suis bloquée sur un fichu problème qui pour quelqu'un de moins novice que moi semblera surement très bête; mais voilà, je n'y arrive pas! J'ai consulté plusieurs topics dont
Je vous expose donc la situation: j'ai sur ma feuille"macro" une liste déroulante de choix en E8. Celle ci doit être copié sur la feuille "prestation" sur la première cellule vide à partir de B6, sachant que plus bas ma feuille contient une présentation donc je ne peux pas remonter, juste descendre à partir de la case B6.
Voilà mon code:
Lorsque je lance la macro, et que je coche les 2 cases à cocher, il me colle bien mes listes déroulantes, mais l'une sur l'autre. Et sachant que la plage B6: B14 est constituée de cellules vides il me colle tout ca en B16. Je pense qu'il trouve la première cellule pleine et qu'il colle sur la case du dessous. Je n'arrive pas à décanter mon problème. Quelqu'un aurait une petite piste?
Merci d'avance!
Voilà je planche depuis une semaine sur l'amélioration d'un fichier excel. Je sollicite votre aide car cela fait 24h que je suis bloquée sur un fichu problème qui pour quelqu'un de moins novice que moi semblera surement très bête; mais voilà, je n'y arrive pas! J'ai consulté plusieurs topics dont
Vous devez être connecté pour voir les liens.
, mais rien n'y fait.Je vous expose donc la situation: j'ai sur ma feuille"macro" une liste déroulante de choix en E8. Celle ci doit être copié sur la feuille "prestation" sur la première cellule vide à partir de B6, sachant que plus bas ma feuille contient une présentation donc je ne peux pas remonter, juste descendre à partir de la case B6.
Voilà mon code:
Code:
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Sheets("macro").Activate
Range("E8").Select
Selection.Copy
Sheets("prestation").Activate
Dim derli As Range
Set derli = Range("B6").End(xlDown).Offset(1)
derli.Select
ActiveSheet.Paste
End If
If CheckBox2.Value = True Then
Sheets("macro").Activate
Range("E9").Select
Selection.Copy
Sheets("prestation").Activate
Dim derli1 As Range
Set derli1 = Range("B6").End(xlDown).Offset(1)
derli.Select
ActiveSheet.Paste
End If
Unload UserForm3
End Sub
Lorsque je lance la macro, et que je coche les 2 cases à cocher, il me colle bien mes listes déroulantes, mais l'une sur l'autre. Et sachant que la plage B6: B14 est constituée de cellules vides il me colle tout ca en B16. Je pense qu'il trouve la première cellule pleine et qu'il colle sur la case du dessous. Je n'arrive pas à décanter mon problème. Quelqu'un aurait une petite piste?
Merci d'avance!