Insertion de cellules uniquement sur une plage de prédéfinie.

[Caninge]

Bonjour à tous amis excelliens.

j'ai bien cherché sur le forum comment insérer des les lignes mais je voudrais
insérer ces lignes seulement dans certaines colonnes. Mais j'ai fait chou blanc comme on dit souvent.

Pourriez-vous m'aider s'il vous plait ?

Je joins un fichier avec les explications.

Bonne journée.

 

[Hasco]

Bonjour,

A mettre dans le module de code de la feuille (click-droit sur l'onglet/visualiser le code):

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim nbLignes As Long
 If Target.Count = 1 And Target.Column = 2 And IsNumeric(Target.Value) Then
    nbLignes = Target.Value
    If nbLignes > 0 Then Target.Offset(1).Resize(nbLignes, 6).Insert xlShiftDown
 End If
End Sub

Bon après-midi

 

[Caninge]

Bonjour Roblochon,

merci pour la réponse.

je ferai des essais !

Je vous tiens au courant

Bonne soirée.

 

[Caninge]

bonjour,

J'ai ouvert ma page dont laquelle je voudrais travailler.
j'ai copié le code de Roblochon dans la page des codes VBA.
J'ai essayé de modifié par mes propres moyens.

mais bon ! vous m'avez compris.

Merci de me filer un petit coup de main.

Caninge

 

[Hasco]

Bonjour,

La macro est au bon endroit. Un rien l'empêche de fonctionner:
Target.count = 1 et non 0. Essayez quand vous ne comprenez pas de vous servir de la touche F1 après avoir sélectionné un mot-clef de VBA.
Vous auriez vu que Target est la plage de cellules qui ont changé et que count en donne le nombre, qui ne peut être inférieur à 1 quand la macro est appelée.

Changez ça et voyez.

 

[Caninge]

rebonjour,

moi et l'anglais ça fait deux Roblochon. C'est mon problème avec cette langue.
Il faut que je rajoute quelles lignes en VBA pour que les plages rajoutées soient jaunes.
Et aussi comment faire marche arrière en cas d'erreur.

merci de me dépanner

CANINGE

 

[Hasco]

Bonjour,

Lancez l'enregistreur de macro, sélectionnez des cellules et donnez leur un fond jaune puis arrêtez l'enregistreur de macro et vous verrez.
Pour faire marche arrière, il faut appeler 'Application.Undo' avant de recommencer une quelconque action.

Bonne programmation

 

[Caninge]

Bonjour à tous chers amis,
j'ai modifié mon tableau, je pense qu'il faudra une macro pour arriver au résultat que je voudrais.
si vous pouviez m'aider s'il vous plait. les explications sont dans le fichier.
Merci de m'accorder quelques minutes.

 

[Caninge]

Rebonjour,
j'ai presque trouvé.
maintenant comment colorier plusieurs lignes.
Je continue de chercher.
A plus

 

[Caninge]

re,

J'ai trouvé pour une première plage mais ensuite cela se complique...
Bonne soirée.

 

[job75]

Bonsoir Caninge, Roblochon,

Avec cette macro on sait exactement ce que l'on fait :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n
n = Int(Val(CStr(Target(1))))
If n < 1 Then Exit Sub
Cancel = True
Target(2, 1).Resize(n).Insert xlDown
Target(2, 1).Resize(n).Interior.ColorIndex = 35 'vert clair
End Sub

A vous d'adapter.

A+

 

[Caninge]

Bonsoir Roblochon, Job75

c'est intéressant cet macro. Ne peut-on pas rajouter quelques lignes en cas
où se trompe de valeurs dans la cellule.
Revenir en arrière en quelque sorte.
Merci

 

[job75]

Bonjour Caninge, le forum,

Fichier (2) avec ce code :

Dim n, cible As Range 'mémorise les variables

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
n = Int(Val(CStr(Target(1))))
If n < 1 Then Application.OnUndo "", "": Exit Sub
Cancel = True
Target(2, 1).Resize(n).Insert xlDown
Target(2, 1).Resize(n).Interior.ColorIndex = 35 'vert clair
Set cible = Target
Application.OnUndo "J'annule", Me.CodeName & ".Z"
End Sub

Sub Z()
If n < 1 Or cible Is Nothing Then Exit Sub
cible(2, 1).Resize(n).Delete xlUp
Application.OnRepeat "", Me.CodeName & ".Y"
End Sub

Sub Y()
If Not cible Is Nothing Then Worksheet_BeforeDoubleClick cible, False
End Sub

A+

 

[Caninge]

Bonsoir Roblochon, job 75

cette proposition me semble bien. je vais essayer de l'adapter à mon application.

Je vous tiens au courant et vous remercie.

Caninge

 

[Caninge]

Bonjour à tous,

merci de se pencher sur mon tableau:
je reviens sur mon fichier que j'ai modifié. Je vais abandonner d'ajouter des lignes par VBA.
Sans macro si possible comment remplir des cellules selon la valeur d'une autre cellule.
un peu compliqué à comprendre comme ça, je me met à votre place. J'envoie un fichier avec une explication plus concrète.
Merci