Copie de feuille en valeur

[Claudia]

Grand bonjour matinal à toutes et tous.
Je nage un peu dans la recopie de cellule d'une feuille à l'autre en VBA.
Ca me paraissait archi simple sauf que ça ne marche pas :side: .
La Feuil1 contient de trop nombreuse formule calculée dont un tas de recherchV, ce qui rend hasardeux le travail à fairee sur les résultat.
Ce que je cherche à faire, c'est à reporter en Feuil2 (par exemple) uniquement les cellule contenant une valeur numérique (non nulle) et de l'alpha-numérique. Tout le reste doit absolument rester de la Feuil2 doit rester vierge.
Dans l'attente de vous lire....bonne et agréable journée , veille d'un bon long week end B)

 

[Claudia]

Re-bonjour, Si celà peut éclairer un peux mieux mon soucis, vous trouverez ci dessous mon maigre code.
Ce que je n'arrive pas à formaliser, c'est la fin de ma plage. Je connais que mes données sont de la colonne A à H ,par contre je ne connais pas le nombre de lignes....Je pense qu'il faut un test, une boucle qui s'arrête une fois trouver une cellule en A'n' vide.

Sheets('Liste').Select
Range('A1:H8').Select
Selection.Copy
Sheets('Feuil2').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True


Merci d'avance pour votre aide

 

[Temjeh]

Bonjour Claudia

Pour ta 1ère question...
Tu peut essayé ceci en remplacement de: Range('A1:H8').Select


ActiveSheet.UsedRange.Select


A++

Temjeh

 

[claudia]

Merci Temjeh, en effet ca fonctionne mieux.
Bon we.