Bonjour à tous,
Je me permets de revenir sur ce forum, car la dernière fois vous m'avez bien aidé !
Aujourd'hui mon problème c'est que je voudrais faire un code à partir de deux codes que j'ai eu sur internet. (Compiler un hamburger quoi^^)
Pour commencer je vous explique le but de ma macro.
1. Appuyer sur mon bouton lié à ma macro (ça je sais faire)
2. Une boite de dialogue qui s'ouvre et qui me demande de sélectionner une cellule ou une plage.
3. Glisser la formule (contenue dans la plage précédemment sélectionnée jusqu'à la dernière ligne de la colonne d'à côté
Je vous copie les deux codes que j'ai trouvé :

Le premier :

Permet de sélectionner une plage avec la souris (Méthode InputBox)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Permet de sélectionner une plage avec la souris (Méthode InputBox)
Sub SelectionPlageAvecSouris()
      Dim Plage As Range
      Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
      MsgBox ("La plage que vous avez séléctionnez est : " & Plage.Address)
End Sub
Le deuxième

Permet de faire glisser les formules jusqu'à la fin de la colonne d'à coté.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Range("D2:G2").Select
Selection.AutoFill Destination:=Range("D2:G" & Range("D65536").End(xlUp).Row)
Voilà j'espère avoir étais claire

Bonne soirée à vous.