macro

_Thierry

XLDnaute Barbatruc

Repose en paix

• 10 Octobre 2006

• #2

Re : macro

Bonsoir Al1000, le Forum

Pas tout à fait certain d'avoir compris ta demande...

Une approche basic :

Code:

Sub Copy_to_CM_or_CE()
Dim Question As Byte
Dim Feuille As String
 
 
Question = MsgBox("Pour effectuer la copie vers la Feuille CM répondre OUI" & vbCrLf & _
                   "Pour effectuer la copie vers la Feuille CE répondre NON" & vbCrLf & _
                   "Pour Annuler répondre ANNULER", vbYesNoCancel)
 
If Question = vbYes Then
 Feuille = "CM"
ElseIf Question = vbNo Then
 Feuille = "CE"
Else
 Exit Sub
End If

Selection.Copy
Sheets(Feuille).Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

End Sub

L'idéal restant un UserForm et probablement un amélioration de la Sélection de la zone à copier et de la manière de le faire...

Bonne Nuit

@+Thierry
​

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 10 Octobre 2006

• #3

Re : macro

bonjour,

c'est bien

mais comment ecrire pour que je sois moi qui donne l'ordre de prendre l'onglet CE, ou CM ou Ca OU CIC afin toujours de recopier en fin de la liste

a+

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 11 Octobre 2006

• #4

Re : macro

Bonjour Al1000, le Forum

Alors le mieux c'est un UserForm, Voici une mini démo...


Bonne Journée

@+Thierry
​

 

Pièces jointes

• USF_WS_List.zip

  12.7 KB · Affichages: 39

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 12 Octobre 2006

• #5

Re : macro

bonjour thierry


je viens de copier ce code sous la feuille desirée (dans visualiser le code)

avec le format de controle j'ai creer un button1

mais quand je veux cliquer sur ce boutton il met met le symbole des 4 petites flèches

le bouttton n'active pas le code

pourquoi?*
a+

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 12 Octobre 2006

• #6

Re : macro

al1000 à dit:

bonjour thierry


je viens de copier ce code sous la feuille desirée (dans visualiser le code)

avec le format de controle j'ai creer un button1

mais quand je veux cliquer sur ce boutton il met met le symbole des 4 petites flèches

le bouttton n'active pas le code

pourquoi?*
a+

Cliquez pour agrandir...

Salut
T'es en mode édition : Sur la barre d'outils contrôles, l'équerre est sélectionnée => clique dessus pour la désélectionner
A+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 12 Octobre 2006

• #7

Re : macro

bonjour


j'avais un mauvais boutton

mais maintenat elle me donne pas la useform



voir le fichier ci joint


deplus comment faire pour que le recopie uniquement la ligne que l'on selctionne de la colonne b à c

a+

 

Pièces jointes

• essai.XLS

  26 KB · Affichages: 47
• essai.XLS

  26 KB · Affichages: 40
• essai.XLS

  26 KB · Affichages: 42

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 12 Octobre 2006

• #8

Re : macro

Bonjour Al1000, Gorfael, le Forum

Dans le ficheir que tu as joint ... Il n'y a pas de UserForm !

Par conséquent tu ne risqueras pas d'activer de UserForm...

Dans la mini-Démo, tu dois aussi récupérer le "UserForm1" en plus du code dans la Private Module de la Feuille.

Dans l'Editeur Visual Basic (VBE), Par l'Explorateur de Projet, (Ctrl + R), tu peux, une fois ma Démo ouverte ainsi que ton fichier, faire glisser (Drag and Drop), le UserForm1 vers ton classeur, il sera automatiquement copié.

Bon Appétit

@+Thierry
​

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 12 Octobre 2006

• #9

Re : macro

bonjour

je viens de retablir la situation

mais maintenant il m'indique

erreur d'instruction?


a+

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Octobre 2006

• #10

Re : macro

Bonsoir Al1000, Gorfael, le Forum

Ah une "erreur d'instruction?" et quelle erreur exactement ? Car là je ne sais pas du tout de quoi il s'agit...

Soit postes nous un exemple de ton fichier, soit le code utilisé, vérifie aussi que tu as bien un UserForm1 si tu appelles un Userform1.Show...

Enfin il y a plein de chose à voir...

Bon Courage

@+Thierry

​

 

Vote positif 0 Vote négatif