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
ru-th
Salut
une fonction renvoie un résultat (function) une procédure effectue des traitements (sub)
donc, plutôt, regarder du côté des sub éventuellement dans une procédure événementielle (change, selection_change...) au niveau des module feuille ou classeur
a+ rural thierry
"Golem13" a écrit dans le message de news: chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
CopieZone(plage_depart;cellule_de_reception).
Une telle fonction est'elle possible ?
Merci pour votre aide.
Salut
une fonction renvoie un résultat (function)
une procédure effectue des traitements (sub)
donc, plutôt, regarder du côté des sub éventuellement dans une procédure
événementielle (change, selection_change...) au niveau des module feuille ou
classeur
a+
rural thierry
"Golem13" <GOL1@wanadoo.fr> a écrit dans le message de news:
chmoak$10i$1@news-reader1.wanadoo.fr...
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
une fonction renvoie un résultat (function) une procédure effectue des traitements (sub)
donc, plutôt, regarder du côté des sub éventuellement dans une procédure événementielle (change, selection_change...) au niveau des module feuille ou classeur
a+ rural thierry
"Golem13" a écrit dans le message de news: chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
CopieZone(plage_depart;cellule_de_reception).
Une telle fonction est'elle possible ?
Merci pour votre aide.
ru-th
Salut
2 cas possibles : -soit la barre n'existe pas et il faut la créer -soit la barre existe et elle est visible ou non
Sub PaletteCouleur() On Error Resume Next With Application Set a = .CommandBars("PaletteCouleur") If Err <> 0 Then .CommandBars.Add(Name:="PaletteCouleur").Visible = True .CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") Else .CommandBars("PaletteCouleur").Visible = True End If End With End Sub
a+ rural thierry "Golem13" a écrit dans le message de news: chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
CopieZone(plage_depart;cellule_de_reception).
Une telle fonction est'elle possible ?
Merci pour votre aide.
Salut
2 cas possibles :
-soit la barre n'existe pas et il faut la créer
-soit la barre existe et elle est visible ou non
Sub PaletteCouleur()
On Error Resume Next
With Application
Set a = .CommandBars("PaletteCouleur")
If Err <> 0 Then
.CommandBars.Add(Name:="PaletteCouleur").Visible = True
.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _
CommandBars("PaletteCouleur")
Else
.CommandBars("PaletteCouleur").Visible = True
End If
End With
End Sub
a+
rural thierry
"Golem13" <GOL1@wanadoo.fr> a écrit dans le message de news:
chmoak$10i$1@news-reader1.wanadoo.fr...
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
2 cas possibles : -soit la barre n'existe pas et il faut la créer -soit la barre existe et elle est visible ou non
Sub PaletteCouleur() On Error Resume Next With Application Set a = .CommandBars("PaletteCouleur") If Err <> 0 Then .CommandBars.Add(Name:="PaletteCouleur").Visible = True .CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") Else .CommandBars("PaletteCouleur").Visible = True End If End With End Sub
a+ rural thierry "Golem13" a écrit dans le message de news: chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
Xav "Golem13" a écrit dans le message de news:chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
CopieZone(plage_depart;cellule_de_reception).
Une telle fonction est'elle possible ?
Merci pour votre aide.
ru-th
oups ! erreur d'aiguillage !
"ru-th" a écrit dans le message de news:
Salut
2 cas possibles : -soit la barre n'existe pas et il faut la créer -soit la barre existe et elle est visible ou non
Sub PaletteCouleur() On Error Resume Next With Application Set a = .CommandBars("PaletteCouleur") If Err <> 0 Then .CommandBars.Add(Name:="PaletteCouleur").Visible = True .CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") Else .CommandBars("PaletteCouleur").Visible = True End If End With End Sub
a+ rural thierry "Golem13" a écrit dans le message de news: chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
CopieZone(plage_depart;cellule_de_reception).
Une telle fonction est'elle possible ?
Merci pour votre aide.
oups !
erreur d'aiguillage !
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:
OnixRXZlEHA.3760@TK2MSFTNGP12.phx.gbl...
Salut
2 cas possibles :
-soit la barre n'existe pas et il faut la créer
-soit la barre existe et elle est visible ou non
Sub PaletteCouleur()
On Error Resume Next
With Application
Set a = .CommandBars("PaletteCouleur")
If Err <> 0 Then
.CommandBars.Add(Name:="PaletteCouleur").Visible = True
.CommandBars("Drawing").Controls(13).Copy Bar:=Application. _
CommandBars("PaletteCouleur")
Else
.CommandBars("PaletteCouleur").Visible = True
End If
End With
End Sub
a+
rural thierry
"Golem13" <GOL1@wanadoo.fr> a écrit dans le message de news:
chmoak$10i$1@news-reader1.wanadoo.fr...
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule
.
Du style : je prends C1:X100 et je place le tout à partir de AA12
2 cas possibles : -soit la barre n'existe pas et il faut la créer -soit la barre existe et elle est visible ou non
Sub PaletteCouleur() On Error Resume Next With Application Set a = .CommandBars("PaletteCouleur") If Err <> 0 Then .CommandBars.Add(Name:="PaletteCouleur").Visible = True .CommandBars("Drawing").Controls(13).Copy Bar:=Application. _ CommandBars("PaletteCouleur") Else .CommandBars("PaletteCouleur").Visible = True End If End With End Sub
a+ rural thierry "Golem13" a écrit dans le message de news: chmoak$10i$
Bonjour.
Une Fonction personnelle pour Copier une Zone vers une nouvelle cellule .
Du style : je prends C1:X100 et je place le tout à partir de AA12
