Etudiant et novice dans l'utilisation d'Excel et de VBA, je cherche un code pour renseigner une cellule via une "InputBox" et faire glisser la cellule remplacée (et toutes ses colonnes associées) vers la ligne du bas.
J'imagine que cela reviendrait à insérer et décaler les cellules vers le bas dans Excel.
Quel code VBA puis-je renseigner ?
Par avance, je vous remercie vivement pour votre retour.
Bonjour,
En PJ un essai avec cet exemple parmi d'autres :
VB:
Sub Inserer()
Donnée = InputBox("Quelle donnée voulez vous insérer ?")
If Donnée = "" Then Exit Sub
Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2") = Donnée
End Sub
Alors le plus simple serait de fournir un petit fichier test, cela éviterait de multiples allers retours, car ça on pouvait difficilement l'imaginer.
En PJ avec ce que j'ai compris :
VB:
Sub Inserer()
Donnée = InputBox("Quelle produit voulez vous promouvoir ?")
If Donnée = "" Then Exit Sub
Range("B3:H4") = Range("B2:H3").Value
Range("B2") = Donnée
End Sub