Pb avec EntireRow.select

[Radsgort]

Bonjour le fil,

Je reviens vers vous car je tourne en rond,
je souhaite sélectionner une ligne entière après l'avoir détecté par la recherche dans une plage Ex ("M2:M20") d'une cellule pleine par Ex "M3" non vide alors je selectionne ligne 3 et je la recopie sur un onglet sur la premiere ligne vide de la page.

voila le fruit de mes recherche :

J'ai tenté la détection de la cellule non vide par

Sheets("Datas").Select
If Not IsEmpty(Range("O2:O20")) Then 
Range("4").EntireRow.Select
Selection.Copy
Sheets("Archive").Select
Range("A2").Select
ActiveSheet.Paste

Cela ne fonctionne pas 😕

je vous adresse un fichier en pj
peut être plus explicite

je vous remercie à tous par avance

 

[13GIBE59]

Re : Pb avec EntireRow.select

Bonjour radsgort.

Je pense que ça va coincer là : Range("4"). Il n'y a aucun code dans ton fichier.

A +

 

[Radsgort]

Re : Pb avec EntireRow.select

Bonjour 13GIBE59

Merci de ton intervention aussi rapide

Effectivement le code ne se trouve pas sur ce fichier,
d'ailleurs j'ai commis une erreur de coordonnées sur l'exemple il s'agit de la colonne "H" et non "O".
Ce fichier ne se trouve la que pour mettre en image ma demande peut être un peu obscure.
Mais peut-être que ce n'est pas la bonne méthode.

Si je peu répondre néanmoins à vos questions dans la mesure de mes connaissances.

Merci pour l'aide

 

[Radsgort]

Re : Pb avec EntireRow.select

bonjour Jean-Marcel

Un grand merci
j'ai essayé le code de ton premier post et c'est parfait.
quel efficacité !!

Vraiment merci à tous et particulièrement à toi Jean-Marcel.