prb de Selection

[fadiese]

Bonjour

J'ai deux problemes
Le 1 er
Je desires recupere une variable initialise dans la macro 1 pour une macro 2

Macro1
While changement = False
If Cells(lig, 1) <> '' Then
lig = lig + 1
ElseIf Cells(lig, 1) = '' Then
Num = lig + 1
changement = True
End If
Wend

Macro 2
If Range('B' & lig).Value = 'daemon' Then
Rows('11:11').Select
Selection.Copy
Range('A' & Num).Select
ActiveSheet.Paste

Le deuxieme est tjrs le meme, cad comment peut on effectuer une selection avec deux variables sans passer par une fonction complexe

Rows('& chif : & chif').Select
Selection.Copy

Merci à tous pour votre reponse c'est assez urgent dans les deux cas je bloque

Cdlt

 

[Bernard_XLD]

Bonjour

1-deux façons de faire
a-utiliser une variable publique (ou private si les macros sont dans le même module)
Public Num as long'à positionner avant les macros
b-passer num en argument
appel macro par
macro2(Num)
déclaration de la macro 2
Sub Macro2(Num as Long)

2-la sélection est inutile dans ce cas la
Rows(num1 & ':' & num2).Copy

Cordialement, A+