Trouver la cellule contenant un texte pour commencer une macro

Robert

XLDnaute Barbatruc

Repose en paix

• 26 Février 2011

• #2

Re : Trouver la cellule contenant un texte pour commencer une macro

Bonsoir Tchangy, bonsoir le forum,

Essaie comme ça :

Code:

Sub Macro1()
Dim r As Range 'déclare la variable r (Recherche)
Set r = Sheets("ton_onglet").Cells.Find("Désignation", , xlValues, xlWhole) 'définit la variable r
If Not r Is Nothing Then r.Select 'si il existe au moins une occurrence, sélectionne r
End Sub

Pour restreindre la recherche, remplaces Cells par une Range que tu définiras...

 

Vote positif 0 Vote négatif

T

tchangy71

XLDnaute Occasionnel

• 26 Février 2011

• #3

Re : Trouver la cellule contenant un texte pour commencer une macro

Bonsoir et merci beaucoup,

Maintenant comment puis je définir la cellule (ligne/colonne) ? pour l'utiliser dans un while/wend :

Sub recap()
Dim sh As Worksheet, r As Range
For Each sh In Worksheets
sh.Select
If Range("A1") = "Fiche de préconisation" Then
Set r = sh.Cells.Find("Désignation", , xlValues, xlWhole)
While Cells(XXX, XXXX) <> "TOTAL"
..
Wend
Else: End If
Next sh
End Sub

 

Dernière édition: 26 Février 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 27 Février 2011

• #4

Re : Trouver la cellule contenant un texte pour commencer une macro

Bonjour le fil ,

Code:

If Not r Is Nothing Then X = r.Column: Y = r.Row

te donnera les coordonnées de la cellule dans les variables X et Y ...
Bon dimanche

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Février 2011

• #5

Re : Trouver la cellule contenant un texte pour commencer une macro

Bonjour le fil, bonjour le forum,

Quel intérêt de rechercher Désignation dans ce cas-là ?... Autant rechercher le Total correspondant à la ligne (ou à la colonne) contenant Désignation...

 

Vote positif 0 Vote négatif