variable objet ou variable de bloc with non définie

Question

Bonjour, 

tout d'abord voici mon code :

Sub RechercheCompo()Dim plage1 As Range, plage2 As Range, plage3 As RangeDim Cellule1 As Range, Cellule2 As RangeSet Cellule1 = Range("J6")Set plage1 = Range("D8:D300").Find(Range("J6").Value, , xlValues)(2, 2)Set plage2 = Range("D8:D300").Find(Range("J6").Value, , xlValues)(5, 30)Set plage3 = Range(plage1, plage2)Dim add As Range, add2 As RangeSet Cellule2 = Range("K6")Set add = plage3.Find(Cellule2.Value, , xlValues)(1, 1)Set add2 = plage3.Find(Cellule2.Value, , xlValues)(4, 1)If Not add Is Nothing ThenRange(add, Range(add, add2)).SelectElseMsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."End IfEnd Sub

Bon maintenant que vous avez lu mon travail je vous explique :
L'utilisateur entre deux données sur deux cellules J6 et K6.
De là, il clic sur la cellule J7 pour lancer la recherche.
Cette recherche fonctionne correctement pour tout mon fichier mais..
Elle ne fonctionne pas pour les lignes 9 à 17 ! J'ai beau chercher, je ne comprend pas..

Ami internautes, fana de VBA etc, je vous en prie S.O.S ! ^^

Configuration: Windows XP / Chrome 46.0.2490.86

ThauTheme · Answer

Bonjour Neoplook, bonjour le forum,

Tu définis un plage sans être sûr qu'elle existe !...
Essaie comme ça :

Sub RechercheCompo()
Dim R As Range
Dim plage1 As Range, plage2 As Range, plage3 As Range
Dim Cellule1 As Range, Cellule2 As Range
Dim add As Range, add2 As Range

Set Cellule1 = Range("J6")
Set R = Range("D8:D300").Find(Cellule1.Value, , xlValues)
If Not R Is Nothing Then
    Set plage1 = R(2, 2)
    Set plage2 = R(5, 30)
    Set plage3 = Range(plage1, plage2)
Else
    'MsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."
    Exit Sub
End If

Set Cellule2 = Range("K6")
Set add = plage3.Find(Cellule2.Value, , xlValues)(1, 1)
Set add2 = plage3.Find(Cellule2.Value, , xlValues)(4, 1)
If Not add Is Nothing Then
    Range(add, Range(add, add2)).Select
Else
    MsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."
End If
End Sub

ThauTheme · Answer

Bonjour Neoplook,

Toujours le même problème tu définis add2 sans être sûr que la valeur existe,,,
Essaie comme ça :

Sub RechercheCompo()
Dim R As Range
Dim plage1 As Range, plage2 As Range, plage3 As Range
Dim Cellule1 As Range, Cellule2 As Range
Dim add As Range, add2 As Range

Set Cellule1 = Range("J6")
Set R = Range("D8:D300").Find(Cellule1.Value, , xlValues)
If Not R Is Nothing Then
    Set plage1 = R(2, 2)
    Set plage2 = R(5, 30)
    Set plage3 = Range(plage1, plage2)
Else
    'MsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."
    Exit Sub
End If
Set Cellule2 = Range("K6")
Set add = plage3.Find(Cellule2.Value, , xlValues)(1, 1)
If Not add Is Nothing Then
    Set add2 = plage3.Find(Cellule2.Value, , xlValues)(4, 1)
    Range(add, Range(add, add2)).Select
Else
    MsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."
End If
End Sub

ThauTheme · Answer

Re,

je navet (si, si, dans ce cas on peut...) pas testé la seconde solution et je n'aime pas trop ta dernière avec des variables non déclarées de type String mélangé à des variable de type Range...

Essaie comme ça (testé) :

Sub RechercheCompo()
Dim R As Range
Dim plage1 As Range, plage2 As Range, plage3 As Range
Dim Cellule1 As Range, Cellule2 As Range
Dim add As Range, add2 As Range

Set Cellule1 = Range("J6")
Set R = Range("D8:D300").Find(Cellule1.Value, , xlValues)
If Not R Is Nothing Then
    Set plage1 = R(2, 2)
    Set plage2 = R(5, 30)
    Set plage3 = Range(plage1, plage2)
Else
    Exit Sub
End If
Set R = Nothing
Set Cellule2 = Range("K6")
Set R = Range("D8:D300").Find(Cellule2.Value, , xlValues)
If Not R Is Nothing Then
    Set add = R(1, 1)
    Set add2 = R(4, 1)
    Range(add, add2).Select
    Else
        MsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."
    End If
End Sub

ThauTheme · Answer

Re,

Chez moi ça marche. regarde le fichier ici

ThauTheme · Answer

Re,

Je jette un coup d'œil se soir à la maison...

Variable objet ou variable de bloc with non définie

5 réponses

Discussions similaires

Newsletters