Utilisation d'un cells.find avec texte et variable

Version imprimable

07/05/2015, 16h01
remi2305

Utilisation d'un cells.find avec texte et variable

Bonjour,

Est-il possible d'effectuer une recherche comprenant du texte et une variable comme dans mon exemple suivant :

Code:

Cells.Find("total " & nompa1)

Ou alors en faisant :

Code:

Cells.Find("total " & Cells(lignePA, 2).Value)

J'ai une incompatibilité de type les deux fois.

Merci de votre aide.

Rémi
07/05/2015, 16h19
joe.levrai

Bonjour,

l'erreur d'incompatibilité est bien sur cette ligne ?

peut-on voir la procédure au complet ?
07/05/2015, 17h09
remi2305
Dans une boucle je cherche à compléter une formule et pour cela j'ai besoin de l'adresse d'une cellule. J'obtiens la ligne de cette cellule grâce à une recherche de la ligne.
C'est cette recherche qui ne fonctionne pas. L'erreur est en fait "variable objet ou variable de bloc with non définie"
Code:

1 2 3 4 For j = 7 To nbtranche * 2 + 7 Step 2 lignetotalpa = Cells.Find("total " & Cells(lignePA1, 3).Value).Row maformule = maformule + "+" + Cells(lignetotalpa, j).Address Next
Merci pour votre aide.

Bonjour le fil, bonjour le forum,

Deux erreurs possible, je pense.
• lignePA1 = 0 => Cells(lignePA1,3) = plantage
• aucune occurrence de "total " & Cells(lignePA1, 3).Value) n'est trouvée => lignetotalpa = plantage

tu devrais utiliser des conditions dans le code du type :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim R As Range
Dim lignepa1 As Integer
 
For J = 7 To nbtranche * 2 + 7 Step 2
    If lignepa1 > 0 Then
        Set R = Cells.Find("total " & Cells(lignepa1, 3).Value)
        If R Is Nothing Then
            'le code en cas d'échec
        Else
            lignetotalpa = Cells.Find("total " & Cells(lignepa1, 3).Value).Row
            maformule = maformule + "+" + Cells(lignetotalpa, J).Address
        Next
    Else
        'le code en cas d'échec
    End If
Next J

07/05/2015, 17h25
joe.levrai

Peut-on voir la procédure au complet bis ? :ptdr:
07/05/2015, 23h20
patricktoulon

heu

bonsoir

Code:

Set R = Cells.Find("total " & Cells(lignepa1, 3).Value)

je n'ai pas testé mais il est possible que ce soit l'espace après total qui pose un soucis a tester donc sans l'espace
vba interprète comme deux mots mais pas une expression
ce qui correspondrait a demander de trouver 2 mots dans un même find

mais je le répète je n'en suis pas sur
après soit la chaine recherchée n'y est pas soit ta variable ligne est mal renseignée
07/05/2015, 23h50
joe.levrai

Bonjour,

l'espace n'est pas rédhibitoire ;)

je veux voir le code avant de me prononcer, mais pour moi Thauthème a donné l'explication (choix 2 pour ma part ...)
je veux pas me lancer à corps perdu en vain ... montre nous ce satané code qui veut pas fonctionner :ptdr:

Bonjour,

Pas la peine de chercher plus loin, l'erreur est très simple, la fonction "Find" retourne un objet Range et donc, si pas trouvé elle retourne "Nothing". Tu demande la valeur d'une propriété (Row) sans même savoir si une cellule ayant la valeur cherchée existe bien !
Il faut d'abords tester si Find a retourné un objet Range donc, c'est comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim Cel As Range For j = 7 To nbtranche * 2 + 7 Step 2 Set Cel = Cells.Find("total " & Cells(lignePA1, 3).Value) If Not Cel Is Nothing Then lignetotalpa = Cel.Row maformule = maformule & "+" & Cells(lignetotalpa, j).Address Else MsgBox "Pas trouvé !" End If Next
et non comme ça :
Code:

1 2 lignetotalpa = Cells.Find("total " & Cells(lignePA1, 3).Value).Row
Hervé.

11/05/2015, 10h55
remi2305

Bonjour,

Merci pour vos réponses. J'ai pu résoudre mon problème grâce à la solution proposée par Theze.

Rémi