Discussion :

[mwa33]

Bonjour,

je souhaite solliciter votre aide sur un problème où je suis un peu perdu... Google n'ayant rien pu faire pour moi...

Procédures :
Je dois lmiter la saisie d'une cellule sous excel et tester cette saisie, si cette dernière est égale à "GA", je dois rajouter 5 lignes en dessous (en recopiant les macros )

Travail effectué :
Dans un premier temps, grâce au petit module "Validation de Données", j'ai pu définir une liste de données, il suffit à l'user de selectionner son choix.

Problème :
c'est donc la qu'un problème se pose à moi...
comment faire sous VBA pour tester la saisie d'une cellule et à quel moment le faire sachant que l'user peut selectionner une valeur à n'importe quelle moment...
toutes idées sont les bienvenues

[alsimbad]

utilise les macro evenementielles
sous vba, tu les trouveras dans la feuille code de chaque feuille de calcul.
en haut de l'écran, tu as deux menu déroulant : général et déclaration
si tu clique sur général tu verras apparaitre worksheets, puis tu va voir sous déclaration, tu trouvera la liste des evenements possibles

[mwa33]

Parfait !
Je travaillais avec des macros sous "perso.xls" et je n'avais pas connaîssances de ça !

Merci

[mwa33]

je reviens à la charge

donc j'utilise les évènements de VBA cependant 2 problèmes se pose alors,
1/ le code prend en compte tout les GA, même ceux déjà traités
2/ le code m'insère 150 lignes...

2 questions en ressortent donc (et elles correspoderont à ma demande...)
vous auriez une idée pour traité qu'une seule fois mes "GA" (marqueur...?)
pourquoi donc ce ptit bout de code m'insère autant de lignes

Voici enfin le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim iR, i
    iR = Cells(Rows.Count, "H").End(xlUp).Row
    For i = 6 To iR
    If Range("H" & i).Value = "GA" Then
        Rows(i).Insert
    End If
    Next
 
End Sub

Cordialement

[dadavyvy]

Il suffit de vérifier la cellule Target car c'est celle qui est modifiee

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
         If Target.Column = 8 And Target = "GA" Then ' Colonne 8 = H
              range(target.offset(1,0), target.offset(5,0)).entirerow.insert
              'ou range((target.row + 1) & ":" & (target.row + 5)).insert
         End If
    End If
End Sub

[mwa33]

ben merci beaucoup, j'ai compris la fonctionnalité du code mais je connaissais pas du tout ça