Variable objet ou variable de bloc with non définie

Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention - 23 déc. 2015 à 17:27

Bonjour,

tout d'abord voici mon code :

Sub RechercheCompo()

Dim plage1 As Range, plage2 As Range, plage3 As Range
Dim Cellule1 As Range, Cellule2 As Range
Set 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 Range
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

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 ! ^^

Afficher la suite

A voir également:

Vba variable objet ou variable de bloc with non définie
Variable objet ou variable de bloc with non définie ✓ - Forum VB / VBA
VBA variable objet ou variabe de bloc With non définie - Forum VB / VBA
Impossible de créer le fichier de travail. vérifiez la variable d'environnement temp ✓ - Forum Word
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

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

Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Bonjour ThauTheme !

Alors c'est génial ça fonctionne correctement à un détail près qui à son importance quand même..
Lorsque je rentre une valeur dans K6 qui n'existe pas dans la plage 3, et que je lance la macro, je me reprend le message d'erreur :Variable objet ou variable de bloc with non définie.

C'est assez frustrant..

Réponse 2 / 5

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

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

Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Avec le code que tu viens de m'envoyer j'ai un souci. Lorsque justement K6 n'est pas présent dans la plage ça dit encore et encore Variable objet ou variable de bloc With non définie.
Mais hier soir après avoir cherché une solution miracle, j'ai trouvé quelque chose de mes propres moyens qui semble fonctionner sous toutes les conditions.
Voici mon code :

Sub RechercherComposant()

Dim base As Range, cible As Range
Dim composant As Range
Dim haut As Range, bas As Range

Set base = Range("j6")
Set cible = Range("k6")


materiel = Range("D8:D300").Find(base.Value, , xlValues).Address
plage1 = Range(Range(materiel)(2, 2), (Range(materiel)(5, 30))).Address
plage2 = Range(Range(materiel)(2, 2), (Range(materiel)(5, 30)))(4, 1).Address

Set composant = Range(plage1).Find(cible.Value, , xlValues)
    If Not composant Is Nothing Then
        Set haut = Range(plage1).Find(cible.Value, , xlValues)
        Set bas = Range(plage1).Find(cible.Value, , xlValues)(4, 1)
        Range(haut, bas).Select
Message = Range(plage1).Find(cible.Value, , xlValues).Address
Msg = Replace(Message, "$", "")
        MsgBox "Le composant recherché se trouve dans la cellule" & Chr(10) & Msg, vbOKOnly + vbInformation, "Info d'emplacement"
    Else
    MsgBox "Désolé !" & Chr(10) & "Ce composant n'existe pas.", vbOKOnly + vbExclamation, "Erreur.."
    Exit Sub
    End If
    
End Sub

Puis-je avoir ton avis là-dessus ThauTheme ? :)

Réponse 3 / 5

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

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

Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention

ThauTheme je te remercie vivement de prendre du temps pour ça :)

Donc maintenant, lorsque le contenu de K6 est dans la plage, la MsgBox d'erreur apparaît tout de même :/ et il ne me sélectionne plus la plage :'(

Réponse 4 / 5

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Re,

Chez moi ça marche. regarde le fichier ici

Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Je vois.. mais en réalité mon fichier n'est pas tourné dans ce sens là mais plus dans celui ci :http://www.cjoint.com/c/ELxquX2VNaS

Réponse 5 / 5

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Re,

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

Neoplook Messages postés 21 Date d'inscription Statut Membre Dernière intervention

Merci ! :D

Discussions similaires

Choisir plage jusqu'à la dernière cellule contenant une valeur

Copie jusqu'à dernière ligne remplie

renommer des fichiers en VBA

copier coller une plage de cellules dans une autre feuille

Macro pour ouvrir fichier excel

copier-coller données d'un fichier excel vers un autre.

Votre réponse

Discussions similaires