[VBA-E] Test sur le contenu de cellule

Bonjour,

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

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 :D )

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 ;)

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

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

Merci

je reviens à la charge :roll:

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... :aie:

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 8O

Voici enfin le code

Code:

---

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 :ave:

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

Code:

---

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

---

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