macro recherche (résolu)

[ccpapy]

bonjour à tous
encore besoin d'aide de votre part
je plante sur la macro qui en théorie devrait me trouver des valeurs sur d'autres onglets
je vous joint mon fichier exemple avec la ligne qui plante
lancement sur onglet feuil1
merci pour votre patience

 

[gilbert_RGI]

Re : macro recherche

Bonjour

erreur lg ne peut avoir la valeur du nom de la feuille (c'est un nombre que doit avoir lg)

donc modifier le code par : lg = .Range("A" & Cel.Row).Row 😎

 

[ccpapy]

Re : macro recherche

donc en remplaçant par
lg = Cel.Row
je devrais être bon
merci pour ce déblocage
bonne journée

 

[gilbert_RGI]

Re : macro recherche

regarde la modif de ma réponse 😎

 

[Efgé]

Re : macro recherche

Bonjour gilbert_RGI 🙂
Comme j'avais préparé quelque chose, je le poste...
En faisant

lg = .Range("A" & Cel.Row)

Tu donne à la variable lg la valeur de la cellule A & Cel.Row (qui au passage est déja connue puis qu'il s'agit de Cel..)
Mets:

lg = Cel.Row

Ensuite tu peux réduire tout ça..

Sub VoirFeuil()
Dim Cel As Range, plagenom As Range

With Feuil2
    Set plagenom = .Range(.Range("A2"), .Range("A65536").End(xlUp))
End With

For Each Cel In plagenom
    If Cel.Value < > "" Then
      Cel.Offset(0, 2) = Sheets(Cel.Value).Range("B3")
    End If
Next Cel
End Sub

Cordialement

 

[ccpapy]

Re : macro recherche (résolu)

merci à vous,
la réflexion de gilbert m'avait fait tilt et j'avais remplacé par cel.row tout simplement...
sinon comment effacer les cellules de cette même ligne
.Range("A:K" & lg).clearcontents ne passent pas
et détailler chaque cellule
.Range("A" & lg)
.Range("B" & lg)
etc... fonctionne mais ne fait pas "propre" ou "pro" 😀




bonne nuit😛

 

[Efgé]

Re : macro recherche (résolu)

Bonjour ccpapy, Gilber_RGI,
Essai comme ceci

Range("A" & lig &":K" & lg).clearcontents

Cordialement

 

[ccpapy]

Re : macro recherche (résolu)

bonjour,Efgé, essai concluant merci