Discussion :

[remi2305]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Cells.Find("total " & nompa1)

Ou alors en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci de votre aide.

Rémi

[joe.levrai]

Bonjour,

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

peut-on voir la procédure au complet ?

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

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Peut-on voir la procédure au complet bis ?

[patricktoulon]

bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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