Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la
rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier".
ensuite dans un second classeur un bouton "coller" qui est en réalité un
"collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas
les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur
"copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit
conditionnelle.
- si presse papier à des valeurs collage spé valeur (macro
que j'ai actuellement).
- si pas valeur dans presse papier alors message d'erreur "
vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur
fermeture message également fermeture de message débogage
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Vincnet.
Bonjour, Tu peux utiliser On Error Resume Next et si besoin faire un test sur la nature de l'erreur (Err.Number = ... voir l'aide) pour afficher un MsgBox. Et a devrait le faire ! -- A+
V.
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
Bonjour,
Tu peux utiliser
On Error Resume Next
et si besoin faire un test sur la nature de l'erreur (Err.Number = ... voir
l'aide) pour afficher un MsgBox.
Et a devrait le faire !
--
A+
V.
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la
rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier".
ensuite dans un second classeur un bouton "coller" qui est en réalité un
"collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas
les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur
"copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit
conditionnelle.
- si presse papier à des valeurs collage spé valeur (macro
que j'ai actuellement).
- si pas valeur dans presse papier alors message d'erreur "
vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur
fermeture message également fermeture de message débogage
Bonjour, Tu peux utiliser On Error Resume Next et si besoin faire un test sur la nature de l'erreur (Err.Number = ... voir l'aide) pour afficher un MsgBox. Et a devrait le faire ! -- A+
V.
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
Daniel
Bonjour. J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean Sub Copier() Dim c As Range Vide = True Selection.Copy For Each c In Selection If c.Value <> "" Then Vide = False Next c End Sub
Sub Coller() If Vide = True Then MsgBox "vous n'avez pas sélectionné de valeurs à importer" Else Range("A18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End If Vide = True End Sub
Cordialement. Daiel
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
Bonjour.
J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean
Sub Copier()
Dim c As Range
Vide = True
Selection.Copy
For Each c In Selection
If c.Value <> "" Then Vide = False
Next c
End Sub
Sub Coller()
If Vide = True Then
MsgBox "vous n'avez pas sélectionné de valeurs à importer"
Else
Range("A18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
End If
Vide = True
End Sub
Cordialement.
Daiel
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 1816798E-F363-4D25-8482-A66317162C88@microsoft.com...
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la
rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les
macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier".
ensuite dans un second classeur un bouton "coller" qui est en réalité un
"collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas
les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant
sur
"copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit
conditionnelle.
- si presse papier à des valeurs collage spé valeur (macro
que j'ai actuellement).
- si pas valeur dans presse papier alors message d'erreur "
vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur
fermeture message également fermeture de message débogage
Bonjour. J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean Sub Copier() Dim c As Range Vide = True Selection.Copy For Each c In Selection If c.Value <> "" Then Vide = False Next c End Sub
Sub Coller() If Vide = True Then MsgBox "vous n'avez pas sélectionné de valeurs à importer" Else Range("A18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End If Vide = True End Sub
Cordialement. Daiel
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
JACK 43
Bonjour,
Je suis confue mais je n'arrive pas àfaire fonctionner la macro.
Apparemment la macro "Copier" fonctionne.
Mais ensuite :
- si j'ai cliquer sur copier la macro "coller" ne colle pas dans la cellule A18 la valeur (elle sélectionne bien A18 puis plante).
- si je n'ai pas cliquer sur copier (but de la macro) je n'ai pas le message d'erreur qui se substitue au message de débogage.
Merçi A+
*****************************************
Bonjour. J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean Sub Copier() Dim c As Range Vide = True Selection.Copy For Each c In Selection If c.Value <> "" Then Vide = False Next c End Sub
Sub Coller() If Vide = True Then MsgBox "vous n'avez pas sélectionné de valeurs à importer" Else Range("A18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End If Vide = True End Sub
Cordialement. Daiel
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
Bonjour,
Je suis confue mais je n'arrive pas àfaire fonctionner la macro.
Apparemment la macro "Copier" fonctionne.
Mais ensuite :
- si j'ai cliquer sur copier la macro "coller" ne colle pas dans la
cellule A18 la valeur (elle sélectionne bien A18 puis plante).
- si je n'ai pas cliquer sur copier (but de la macro) je n'ai pas le
message d'erreur qui se substitue au message de débogage.
Merçi A+
*****************************************
Bonjour.
J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean
Sub Copier()
Dim c As Range
Vide = True
Selection.Copy
For Each c In Selection
If c.Value <> "" Then Vide = False
Next c
End Sub
Sub Coller()
If Vide = True Then
MsgBox "vous n'avez pas sélectionné de valeurs à importer"
Else
Range("A18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
End If
Vide = True
End Sub
Cordialement.
Daiel
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 1816798E-F363-4D25-8482-A66317162C88@microsoft.com...
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la
rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les
macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier".
ensuite dans un second classeur un bouton "coller" qui est en réalité un
"collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas
les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant
sur
"copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit
conditionnelle.
- si presse papier à des valeurs collage spé valeur (macro
que j'ai actuellement).
- si pas valeur dans presse papier alors message d'erreur "
vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur
fermeture message également fermeture de message débogage
Je suis confue mais je n'arrive pas àfaire fonctionner la macro.
Apparemment la macro "Copier" fonctionne.
Mais ensuite :
- si j'ai cliquer sur copier la macro "coller" ne colle pas dans la cellule A18 la valeur (elle sélectionne bien A18 puis plante).
- si je n'ai pas cliquer sur copier (but de la macro) je n'ai pas le message d'erreur qui se substitue au message de débogage.
Merçi A+
*****************************************
Bonjour. J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean Sub Copier() Dim c As Range Vide = True Selection.Copy For Each c In Selection If c.Value <> "" Then Vide = False Next c End Sub
Sub Coller() If Vide = True Then MsgBox "vous n'avez pas sélectionné de valeurs à importer" Else Range("A18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End If Vide = True End Sub
Cordialement. Daiel
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
Daniel
Bonjour. Jaurais dû préciser que la déclaration de la variable publique "Vide" doit être faite dans un module. Cordialement. Daniel "JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Je suis confue mais je n'arrive pas àfaire fonctionner la macro.
Apparemment la macro "Copier" fonctionne.
Mais ensuite :
- si j'ai cliquer sur copier la macro "coller" ne colle pas dans la cellule A18 la valeur (elle sélectionne bien A18 puis plante).
- si je n'ai pas cliquer sur copier (but de la macro) je n'ai pas le message d'erreur qui se substitue au message de débogage.
Merçi A+
*****************************************
Bonjour. J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean Sub Copier() Dim c As Range Vide = True Selection.Copy For Each c In Selection If c.Value <> "" Then Vide = False Next c End Sub
Sub Coller() If Vide = True Then MsgBox "vous n'avez pas sélectionné de valeurs à importer" Else Range("A18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End If Vide = True End Sub
Cordialement. Daiel
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
Bonjour.
Jaurais dû préciser que la déclaration de la variable publique "Vide" doit
être faite dans un module.
Cordialement.
Daniel
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: 562FAF8E-8AE8-4B66-BE63-95A8A6DF4DD2@microsoft.com...
Bonjour,
Je suis confue mais je n'arrive pas àfaire fonctionner la macro.
Apparemment la macro "Copier" fonctionne.
Mais ensuite :
- si j'ai cliquer sur copier la macro "coller" ne colle pas dans la
cellule A18 la valeur (elle sélectionne bien A18 puis plante).
- si je n'ai pas cliquer sur copier (but de la macro) je n'ai pas le
message d'erreur qui se substitue au message de débogage.
Merçi A+
*****************************************
Bonjour.
J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean
Sub Copier()
Dim c As Range
Vide = True
Selection.Copy
For Each c In Selection
If c.Value <> "" Then Vide = False
Next c
End Sub
Sub Coller()
If Vide = True Then
MsgBox "vous n'avez pas sélectionné de valeurs à importer"
Else
Range("A18").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:úlse
End If
Vide = True
End Sub
Cordialement.
Daiel
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message
de
news: 1816798E-F363-4D25-8482-A66317162C88@microsoft.com...
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais
la
rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les
macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier".
ensuite dans un second classeur un bouton "coller" qui est en réalité
un
"collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant
pas
les macros est si elle appuie sur "coller" sans qu'elle est appuyé
avant
sur
"copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit
conditionnelle.
- si presse papier à des valeurs collage spé valeur
(macro
que j'ai actuellement).
- si pas valeur dans presse papier alors message
d'erreur "
vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie
sur
fermeture message également fermeture de message débogage
Bonjour. Jaurais dû préciser que la déclaration de la variable publique "Vide" doit être faite dans un module. Cordialement. Daniel "JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Je suis confue mais je n'arrive pas àfaire fonctionner la macro.
Apparemment la macro "Copier" fonctionne.
Mais ensuite :
- si j'ai cliquer sur copier la macro "coller" ne colle pas dans la cellule A18 la valeur (elle sélectionne bien A18 puis plante).
- si je n'ai pas cliquer sur copier (but de la macro) je n'ai pas le message d'erreur qui se substitue au message de débogage.
Merçi A+
*****************************************
Bonjour. J'ai mis mon code dans un module. Recopie-le dans tes boutons.
Public Vide As Boolean Sub Copier() Dim c As Range Vide = True Selection.Copy For Each c In Selection If c.Value <> "" Then Vide = False Next c End Sub
Sub Coller() If Vide = True Then MsgBox "vous n'avez pas sélectionné de valeurs à importer" Else Range("A18").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse End If Vide = True End Sub
Cordialement. Daiel
"JACK 43" (sansspam)> a écrit dans le message de news:
Bonjour,
Hier j'ai fait une macro qui me convient pour moi mais je souhaiterais la rendre plus ergonomique pour quelqu'un qui ne connait pas Excel et les macros.
je m'explique :
j'ai mis sur un premier classeur un bouton associé à la macro "copier". ensuite dans un second classeur un bouton "coller" qui est en réalité un "collage spécial valeur".
oui mais voilà, ce fichier est destiné à des personnes ne connaissant pas les macros est si elle appuie sur "coller" sans qu'elle est appuyé avant sur "copier" j'ai un message d'erreur avec possibilité de débogage.
voilà je souhaiterais que ma macro "collage spécial valeur" soit conditionnelle. - si presse papier à des valeurs collage spé valeur (macro que j'ai actuellement). - si pas valeur dans presse papier alors message d'erreur " vous n'avez pas sélectionner de valeurs à importer" et lorsque appuie sur fermeture message également fermeture de message débogage
