Problème en VBA
poissette
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Je suis débutante en VBA et j'ai un soucis que je n'arrive pas à résoudre..
Dans une colonne d'un classeur (disons la D) , je souhaite cherche le texte "MAJEUR" et si je trouve ce texte, j'aimerai simplement copier une cellule particulière sur la même ligne afin de l'intégrer à un autre fichier, cependant je n'arrive pas à mettre la conditions pour détecter la première cellule avec le texte "MAJEUR" dedans, pouvez vous m'aider?
Merci d'avance
Je suis débutante en VBA et j'ai un soucis que je n'arrive pas à résoudre..
Dans une colonne d'un classeur (disons la D) , je souhaite cherche le texte "MAJEUR" et si je trouve ce texte, j'aimerai simplement copier une cellule particulière sur la même ligne afin de l'intégrer à un autre fichier, cependant je n'arrive pas à mettre la conditions pour détecter la première cellule avec le texte "MAJEUR" dedans, pouvez vous m'aider?
Merci d'avance
1 réponse
Bonjour,
En supposant des entetes de colonnes en ligne , on cherche la cellule colonne G sur la ligne ou se trouve " majeur" (procédure insensible à la casse)
En supposant des entetes de colonnes en ligne , on cherche la cellule colonne G sur la ligne ou se trouve " majeur" (procédure insensible à la casse)
Option Explicit
'----------------------------------------
Sub chercher_texte()
Dim Lig As Integer
On Error GoTo inconnu
'dans la colonne "D" trouve la ligne du mot "majeur" apres la ligne 1
Lig = Columns("D").Find(what:="MAJEUR", after:=Range("D1")).Row
MsgBox Cells(Lig, "G")
Exit Sub
'gestionnaire erreur
inconnu:
MsgBox "MAJEUR" & " inconnu"
End Sub
