macro copier coller

[clautu]

Bonjour,
J'ai un sérieux probleme et j'ai besoin d'aide d'experts comme vous.
Je suis en train de me faire un fichier pour faire des liste d'élèves et ainsi que mon diagrame de classe.
J'ai fait des macros pour qu'une fois les mon entrées dans la liste. je n'ai qu'a les copier coller dans les carré représentant la place de l'élève en classe.
lorsque je clir sur les boutons numéroté de 1 à 30 il se fait un copier de la cellule. lorsque je clique dans le carré vide , il se fait un coller. Jusque là tout va bien. Je que je voudait corriger c'est que quand je clique dans un carré bloanc sans avoir fait de copier (clique sur buttons numérotés) il me met un message d'erreur comme quoi je ne peut pas faire de coller sans faire de copier avant. Je comprend mais y a t il un moyen pour que au lieu du message d'erreur que tout simplement il ne se passe rien. Je pense que le mieux c'est de lessayer je vous joint un parti du fichier

 

[ROGER2327]

Re : macro copier coller

Bonsoir clautu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'placer les conducteurs
    If Not Intersect(ActiveCell, Range("C3:O26")) Is Nothing Then
        [COLOR="Red"][B]On Error Resume Next[/B][/COLOR]
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=True
    End If
End Sub

devrait résoudre le problème. À essayer...​

Bonne nuit !
ROGER2327

 

[clautu]

Re : macro copier coller

C'est exactement cela
Mille fois merci Roger2327. tu m'as rendu un fier service.
Bonne nuit à toi aussi

 

[clautu]

Re : macro copier coller

J'ai été trop vitecar il y a un petit probleme.
Le message d'erreur n'apparait plus mais il mais impossible de coller le nom dsans la case

 

[clautu]

Re : macro copier coller

C'est encore moi,
C'est moi qui ai fait une erreur . Finalement ça fonctionne très bien
Aloirs merci encore et bonne nuit