Bonjour le groupe
Comment puis-je =E0 l'aide d'un boutonclic copier la feuille en cour et
lui donner la couleur verte si la valeur de la case C4 =3D "anne" et bleu
si la valeur de la case C4 =3D "bruno"
Merci au groupe pour les r=E9ponse=20
Amicalement=20
Crole
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
Daniel
Bonsoir. C'est quoi, un boutonclic, un bouton de commande ? Alors : Private Sub CommandButton1_Click() ActiveSheet.Copy If [C4] = "anne" Then ActiveSheet.Tab.ColorIndex = 4 ElseIf [C4] = "bruno" Then ActiveSheet.Tab.ColorIndex = 5 End If End Sub Cordialement. Daniel "crole" a écrit dans le message de news:
Bonjour le groupe Comment puis-je à l'aide d'un boutonclic copier la feuille en cour et lui donner la couleur verte si la valeur de la case C4 = "anne" et bleu
si la valeur de la case C4 = "bruno"
Merci au groupe pour les réponse Amicalement Crole
Bonsoir.
C'est quoi, un boutonclic, un bouton de commande ?
Alors :
Private Sub CommandButton1_Click()
ActiveSheet.Copy
If [C4] = "anne" Then
ActiveSheet.Tab.ColorIndex = 4
ElseIf [C4] = "bruno" Then
ActiveSheet.Tab.ColorIndex = 5
End If
End Sub
Cordialement.
Daniel
"crole" <contactbruno@skynet.be> a écrit dans le message de news:
1148413690.440237.174440@j33g2000cwa.googlegroups.com...
Bonjour le groupe
Comment puis-je à l'aide d'un boutonclic copier la feuille en cour et
lui donner la couleur verte si la valeur de la case C4 = "anne" et bleu
si la valeur de la case C4 = "bruno"
Merci au groupe pour les réponse
Amicalement
Crole
Bonsoir. C'est quoi, un boutonclic, un bouton de commande ? Alors : Private Sub CommandButton1_Click() ActiveSheet.Copy If [C4] = "anne" Then ActiveSheet.Tab.ColorIndex = 4 ElseIf [C4] = "bruno" Then ActiveSheet.Tab.ColorIndex = 5 End If End Sub Cordialement. Daniel "crole" a écrit dans le message de news:
Bonjour le groupe Comment puis-je à l'aide d'un boutonclic copier la feuille en cour et lui donner la couleur verte si la valeur de la case C4 = "anne" et bleu
si la valeur de la case C4 = "bruno"
Merci au groupe pour les réponse Amicalement Crole
crole
Bonsoir Daniel Effectivement "un bouton de commande" le code fonctionne mais il faudrait qu'il copie la feuille en cours lui donner la couleur c'est ok mais il faudrait que l'onglet soit la valeur de C4 "soit anne soit bruno" Merci pour ta réponse
Bonsoir Daniel
Effectivement "un bouton de commande"
le code fonctionne mais il faudrait qu'il copie la feuille en cours
lui donner la couleur c'est ok mais il faudrait que l'onglet soit la
valeur de C4 "soit anne soit bruno"
Merci pour ta réponse
Bonsoir Daniel Effectivement "un bouton de commande" le code fonctionne mais il faudrait qu'il copie la feuille en cours lui donner la couleur c'est ok mais il faudrait que l'onglet soit la valeur de C4 "soit anne soit bruno" Merci pour ta réponse
crole
re Daniel la copie dans le même classer milles excuses cordialement Bruno
re Daniel
la copie dans le même classer
milles excuses
cordialement
Bruno
re Daniel la copie dans le même classer milles excuses cordialement Bruno
Daniel
Private Sub CommandButton1_Click() If [C4] <> "anne" And [C4] <> "bruno" Then Exit Sub ActiveSheet.Copy after:=Sheets(Sheets.Count) If [C4] = "anne" Then ActiveSheet.Tab.ColorIndex = 4 ElseIf [C4] = "bruno" Then ActiveSheet.Tab.ColorIndex = 5 End If End Sub
Daniel "crole" a écrit dans le message de news:
re Daniel la copie dans le même classer milles excuses cordialement Bruno
Private Sub CommandButton1_Click()
If [C4] <> "anne" And [C4] <> "bruno" Then Exit Sub
ActiveSheet.Copy after:=Sheets(Sheets.Count)
If [C4] = "anne" Then
ActiveSheet.Tab.ColorIndex = 4
ElseIf [C4] = "bruno" Then
ActiveSheet.Tab.ColorIndex = 5
End If
End Sub
Daniel
"crole" <contactbruno@skynet.be> a écrit dans le message de news:
1148415943.246129.285570@i40g2000cwc.googlegroups.com...
re Daniel
la copie dans le même classer
milles excuses
cordialement
Bruno
Private Sub CommandButton1_Click() If [C4] <> "anne" And [C4] <> "bruno" Then Exit Sub ActiveSheet.Copy after:=Sheets(Sheets.Count) If [C4] = "anne" Then ActiveSheet.Tab.ColorIndex = 4 ElseIf [C4] = "bruno" Then ActiveSheet.Tab.ColorIndex = 5 End If End Sub
Daniel "crole" a écrit dans le message de news:
re Daniel la copie dans le même classer milles excuses cordialement Bruno
Private Sub CommandButton1_Click() If [C4] <> "anne" And [C4] <> "bruno" Then Exit Sub ActiveSheet.Copy after:=Sheets(Sheets.Count) If [C4] = "anne" Then ActiveSheet.Tab.ColorIndex = 4 ElseIf [C4] = "bruno" Then ActiveSheet.Tab.ColorIndex = 5 End If Sheets("Liste rapport").Select For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub Daniel "crole" a écrit dans le message de news:
Merci Daniel et Bonne Soirée
à bientôt sur le Groupe Cordialement Bruno
Essaie (non testé) :
Private Sub CommandButton1_Click()
If [C4] <> "anne" And [C4] <> "bruno" Then Exit Sub
ActiveSheet.Copy after:=Sheets(Sheets.Count)
If [C4] = "anne" Then
ActiveSheet.Tab.ColorIndex = 4
ElseIf [C4] = "bruno" Then
ActiveSheet.Tab.ColorIndex = 5
End If
Sheets("Liste rapport").Select
For Each sh In Sheets
ActiveCell = sh.Name
ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4
ActiveCell.Offset(1, 0).Select
Next sh
End Sub
Daniel
"crole" <contactbruno@skynet.be> a écrit dans le message de news:
1148419038.121892.296660@j33g2000cwa.googlegroups.com...
Merci Daniel et Bonne Soirée
Private Sub CommandButton1_Click() If [C4] <> "anne" And [C4] <> "bruno" Then Exit Sub ActiveSheet.Copy after:=Sheets(Sheets.Count) If [C4] = "anne" Then ActiveSheet.Tab.ColorIndex = 4 ElseIf [C4] = "bruno" Then ActiveSheet.Tab.ColorIndex = 5 End If Sheets("Liste rapport").Select For Each sh In Sheets ActiveCell = sh.Name ActiveCell.Offset(0, 1) = sh.Tab.ColorIndex = 4 ActiveCell.Offset(1, 0).Select Next sh End Sub Daniel "crole" a écrit dans le message de news:
