Combiner 2 macros
Résolu/Fermé
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
-
Modifié le 6 juin 2021 à 19:09
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 7 juin 2021 à 08:30
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 7 juin 2021 à 08:30
A voir également:
- Combiner 2 macros
- Comment combiner des pdf - Guide
- Combiner 2 cellules excel - Guide
- 2 ecran pc - Guide
- Word numéro de page 1/2 - Guide
- 2 comptes whatsapp - Guide
3 réponses
Le Pingou
Messages postés
12179
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
3 novembre 2024
1 448
6 juin 2021 à 22:18
6 juin 2021 à 22:18
Bonjour,
Il n'y a pas de deuxième macro dans votre classeur!
que voulez-vous comme résultat...?
Il n'y a pas de deuxième macro dans votre classeur!
que voulez-vous comme résultat...?
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
7 juin 2021 à 07:31
7 juin 2021 à 07:31
Bonjour,
Essayez ceci
Cdlt
Essayez ceci
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Sortie
Application.EnableEvents = False
If Target.Address = "$C$8" Then
If Not Target Is Nothing And Len(Target) > 7 Then
MsgBox "ID Commerçant 7 caractères"
Application.Undo
End If
End If
If Target.Address = "$H$6" Then
If Target.Value = "En Cours" Then
ActiveSheet.Tab.ColorIndex = 35
ElseIf Target.Value = "Attente Action" Then
ActiveSheet.Tab.Color = RGB(255, 0, 0)
ElseIf Target.Value = "Cloturé" Then
ActiveSheet.Tab.Color = RGB(39, 82, 18)
End If
End If
Sortie:
Application.EnableEvents = True
End Sub
Cdlt
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
7 juin 2021 à 08:30
7 juin 2021 à 08:30
Bonjour
ca fonctionne tres bien
grand merci
ca fonctionne tres bien
grand merci
Modifié le 6 juin 2021 à 22:59
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$8" Then
If Target Is Nothing Then Exit Sub '<= 7 Then Exit Sub
If Target > 7 Then MsgBox "ID Commerçant 7 caractères": Application.Undo
End If
qui me limite la cellule C8 a 7 caracteres
et l'autre qui me change la couleur de l'onglet suivant la valeur de H6
If Target.Address = "$H$6" Then
If Target.Value = "En Cours" Then
ActiveSheet.Tab.ColorIndex = 35
Else
If Target.Value = "Attente Action" Then
ActiveSheet.Tab.Color = RGB(255, 0, 0)
Else
If Target.Value = "Cloturé" Then
ActiveSheet.Tab.Color = RGB(39, 82, 18)
End If
End If
End If
End If
End Sub
et dans l'etat actuel ça marche pas en mettent les 2 parties de la macro
je m'apperçois aussi que j'avais mis des validations de donées dans la cellule C8 il faudrait l'enlever pour le test merci