Problème en VBA

Fermé
poissette - 8 juin 2018 à 10:16
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 8 juin 2018 à 10:41
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

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 8 juin 2018 à 10:43
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)

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



0