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

Th4n4to5

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • EssaiInsertion.xlsm
    14.4 KB · Affichages: 3

Th4n4to5

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
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 :
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
 

Pièces jointes

  • EssaiInsertion(V2).xlsm
    14.6 KB · Affichages: 3
Dernière édition:

Discussions similaires

P
Réponses
6
Affichages
547
Paskal_35
P

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG