Condition "Si" dans une procèdure

[br44]

Bonjour le forum ,

Voilà je voudrais savoir comment structurer une condition "Si" en VBA

voici les critères :

Si la valeur de ma cellule affiche "01" je veux que cela declanche la macro suivante:

Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536").End(XlUp)

ou bien :

Si la valeur de ma cellule affiche "02 et + que cela declanche la macro suivante:

Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536").End(XlUp)(15)

A savoir que la première inscrution ne s'enclenchera q'une seul fois au début et que le ensemble est commandé par un bouton

En espèrant avoir ètè claire dans ma demande et en attante de vos réponses je vous adresse mes remerciments par avances et vous dis à bientôt sur se fil
br44

 

[flo2002]

Re : Condition "Si" dans une procèdure

bonjour,
un truc du genre

Private Sub worksheet_change(ByVal target As Range)
If Range("A1").Value = 1 Then

Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536") .End(XlUp)


Else
Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536") .End(XlUp)(15)
End If
End Sub

en esperant repondre à ta question

 

[Darnel]

Re : Condition "Si" dans une procèdure

Bonjour

voici comment tu peu le faire, sauf erreur de ma part :

If Range("A1").Value = "01" Then
Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536") .End(XlUp)

Else
Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536") .End(XlUp)(15)

End If


je ne pense pas m'être trompé mais bon je débute et j'essaye
si quelqu'un a mieux je suis preneur


EDIT: Bonjour Florent, arf !! suis tellement lent que j'ai mis plus de 4 minutes à répondre (pour être sur de moi... )donc t'as été plus rapide mais je suis content de voir que j'ai pareil que toi hormis que je n'ai pas mis sub...End sub

 

[PascalXLD]

Re : Condition "Si" dans une procèdure

Bonjour

Flo ta macro va s'enclancher à chaque modif de la feuille et donc à chaque fois il y aura un copier ça va vite en faire un bon paquet

Je ne suis pas sûr que c'est ce que veut br44 puisqu'il dit
"que le ensemble est commandé par un bouton "

A suivre ...

Bonne journée

 

[Darnel]

Re : Condition "Si" dans une procèdure

Bonjour pascal,

Dans ce cas, il peut peut être l'enregistrer comme ca :

Sub mamacro()
If Range("A1").Value = "01" Then
Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536") .End(XlUp)

Else
Sheets("ma feuille").usedRange.copy destination:=Sheets("destination").Range("A65536") .End(XlUp)(15)

End If

End sub

et y affecter un bouton

 

[flo2002]

Re : Condition "Si" dans une procèdure

Oui tu as raison Pascal,
il ferais mieu de la mettre dans un module et la lié à un bouton.
sinon ca va vite etre ennuyeux je pense.....

 

[br44]

Re : Condition "Si" dans une procèdure

re: bonjour à Flo2002,Darnel,et Pascal76

Tout d'abord grand merci à vous trois pour ces rèponses rapides .

je test est vous tient au courant aussitôt merci encore à plus

br44

 

[br44]

Re : Condition "Si" dans une procèdure

re: Bonsoir à Flo2002,Darnel,et à Pascal76

Se petit message pour dire que la solution que vous m'avez addresse fonctionne parfaitement .

je vous renouvelle donc mes remerciments à vous trois

A bientôt donc sur un nouveau fil

br44