Microsoft 365 Code VBA pour insérer et décaler les cellules vers le bas via une InputBox

[Th4n4to5]

Bonjour à tous,

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.

Bien cordialement.

 

[sylvanu]

Bonjour,
En PJ un essai avec cet exemple parmi d'autres :

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

 

[Th4n4to5]

Bonjour Sylvanu,

Merci pour ta réponse et pour ta rapidité. Ton code fonctionne et il me permet d'avancer ^^ !

Sauf erreur, celui-ci ajoute une ligne à chaque exécution du code.

En fait, je travaille dans un tableau avec 3 lignes : OR, ARGENT et BRONZE.

Je souhaite que l'utilisateur de mon programme renseigne la référence d'un produit qu'il souhaite mettre en promotion.

Il renseignerait la référence du produit qui serait dans ligne OR et le produit précédent passerait dans la remise ARGENT.

Mon objectif serait que la rotation s'effectue dans mon tableau sans ajouter de ligne supplémentaire.

Le débutant que je suis espère avoir été plus clair ^^

Encore mille mercis.

 

[sylvanu]

Le débutant que je suis espère avoir été plus clair

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 :

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

 

[Th4n4to5]

Bonjour Sylvanu,

Un grand merci pour tes retours et pour ta réactivité.

A bientôt pour de nouveaux problèmes de programmation en VBA.

Bonne continuation à toi.