copie de ligne avec formules

[maxime_22]

Bonjour a tous,

J'aimerais créer une macro mais je n'y arrive pas.

J'ai un fichier avec deux listes déroulantes, l'une dépend de l'autre.

Le fichier sert élaborer une liste pour la commande de radiateurs (entre autre)

j'aimerais que lorsqu'on renseigne le nombre de radiateurs dans la cellule "C2" (voir fichier annexe), le classeur m'insère automatiquement le bon nombre de ligne (identique a la ligne B).

Une solution simple serait dans mettre 20 et d'utiliser seulement celle qu'il me faut mais j'ai d'autre matériel en dessous. (non mis dans le fichier annexe car je vais modifier la futur macro a souhait, et celle ci, partira du même principe)

merci d'avance

Cordialement

Maxime

 

[Modeste]

Re : copie de ligne avec formules

Bonjour Maxime,

En intégrant ta recherchev dans la formule de validation de données, tu peux "zapper" la colonne B.

Avec un petit bout de macro (déclenchée par le changement de la valeur en B2), les lignes sont insérées. J'ai ajouté 2-3 contrôles pour vérifier qu'on n'encode pas de nombre négatif, de texte ou de décimales, mais il y aura peut-être lieu d'en ajouter (nombre maximum, par exemple)

Teste et dis-nous si ça correspond à tes attentes.

Attention, en raison de la présence de données en colonnes G à I, la macro n'insère pas de lignes entières ... s'il y a des données en dessous, les deux premières colonnes vont se décaler vers le bas. A mon humble avis, le plus sûr serait de placer tes plages nommées (dataradiateurs, etc.) dans une autre feuille et d'insérer des lignes entières

 

[maxime_22]

Re : copie de ligne avec formules

Merci beaucoup,

En effet, ton humble avis est le mien, le fichier joint est un fichier exemple et non mon fichier définitif et bien entendu les matrices sont sur une autres feuilles.

cordialement

 

[maxime_22]

Re : copie de ligne avec formules

Et du coup comment fais tu pour insérer la ligne entière ?

 

[Modeste]

Re : copie de ligne avec formules

Re-bonjour,

En modifiant comme suit la dernière instruction:

Range("A4:B" & 3 + Target).EntireRow.Insert shift:=xlDown, copyorigin:=xlFormatFromRightOrBelow

 

[maxime_22]

Re : copie de ligne avec formules

Merci beaucoup