Sélection conditionelle de lignes

[Pown_phil]

Bonjour a tous,

J'écris ici pour demander de l'aide (comme vous pouver vous en douter 🙂)

Présentation du problème :

J'ai réalisé une macro pour sélectionner puis copier et coller des lignes d'une feuille excel dans une autre.
Seulement dans ces lignes, j'en ai des inutiles (si il y en avait pas cela serait un peu trop facile) que je ne veux pas sélectionner. Et le problème vient du fait que je ne sais pas combien il y en as ni ou elles seront placées (sinon il n'y aurait pas de problème).
Il y a un exemple en pièce jointe.

Voici le bout de macro pour la sélection que j'ai réalisé (bien sur cela ne marche pas) :

Plage = ""
For j = 2 To 101
i = j
While Cells(i, 2).Value <> "" And Cells(i, 2).Value <> "#N/A"
Plage = Plage & i & ":" & i & ","
i = i + 1
Wend

Next j

If Right(Plage, 1) = "," Then Plage = Left(Plage, Len(Plage) - 1)
Range("" & Plage & "").Select


Je suis preneur de tout ce que vous aurez à proposer
Merci beaucoup

 

[kjin]

Re : Sélection conditionelle de lignes

Bonjour et bienvenue,
Pas ouvert le fichier et pour cause...donc non testé
En gardant ton principe

PLage = ""
For j = 2 To 101
If Not IsError(Cells(j, 2)) Then
    If Cells(j, 2) <> "" Then
        PLage = PLage & j & ":" & j & ","
    End If
End If
Next j
If Len(PLage) > 0 Then PLage = Left(PLage, Len(PLage) - 1)
Range("" & PLage & "").Select

A+
kjin

 

[Pown_phil]

Re : Sélection conditionelle de lignes

Je crois qu'il y a une seule chose à dire

🙂 MERCI 🙂​