Correction macro

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion RONIBO
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

RONIBO

XLDnaute Impliqué
bonsoir, 🙂

est ce que quelqu'un a du temps à consacrer pour me corriger ce macro?

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(16, 1) = StrConv(Cells(16, 1), 1) Cells(18, 1) = StrConv(Cells(18, 1), 1) Cells(17, 7) = StrConv(Cells(17, 7), 1) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' clic en dehors des tableaux pous effacer les lignes coloriées Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone ' Pour le tableau If Not Intersect(Target, Range("A23:H43")) Is Nothing And Target.Count = 1 Then Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone Range(Cells(Target.Row, 2), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150) End If End Sub Sub MasquerLignes() 'masquer les lignes à partir de la ligne 49 Range(Cells(49, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True

'masquer les colonnes à partir de la colonne H (ce qui correspond à la colonne 8) Range(Cells(1, 8), Cells(1, Columns.Count)).EntireColumn.Hidden = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' clic en dehors des tableaux pous effacer les lignes coloriées Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone ' Pour le tableau If Not Intersect(Target, Range("A23:H43")) Is Nothing And Target.Count = 1 Then Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone Range(Cells(Target.Row, 2), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150) End If End Sub

J'ai un message comme :

erreur de compilation

nom ambigui détecté Worksheet_SelectionChange

j'attends vos retour 🙂

a+
 
Trier par date Trier par votes
Re : Correction macro

Bonjour

ta demande est illisible
le plus simple est de joindre un bout de fichier ou au moins aller en mode avancé et mettre ton code entre balises pour qu'il garde sa mise en forme
le fichier reste le must

edit : bonjour Pierrot et bien vu sans doute
 
Vote positif 0 Vote négatif
Re : Correction macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(16, 1) = StrConv(Cells(16, 1), 1)
Cells(18, 1) = StrConv(Cells(18, 1), 1)
Cells(17, 7) = StrConv(Cells(17, 7), 1)
End Sub
Sub MasquerLignes()
'masquer les lignes à partir de la ligne 49
Range(Cells(49, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True

'masquer les colonnes à partir de la colonne H (ce qui correspond à la colonne 8)
Range(Cells(1, 8), Cells(1, Columns.Count)).EntireColumn.Hidden = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' clic en dehors du tableau pous effacer la ligne coloriée
Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
' Pour le tableau de désignation
If Not Intersect(Target, Range("A12:Y25")) Is Nothing And Target.Count = 1 Then
Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
End If
End Sub
Cliquez pour agrandir...

Voila, c'est vrai que c'est plus simple 🙂
 
Vote positif 0 Vote négatif
Re : Correction macro

Re

tu as donc bien 2 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

dans un cas tu effectues des Strconv et dans un autre tu joues sur les propriétés

il faut que tu regroupes tout en 1 Selection_change mais sans savoir ce que tu veux faire exactement....?
 
Vote positif 0 Vote négatif
Re : Correction macro

Re

pour préciser ma question, dans tes Selection_change, tu as

Cells(16, 1) = StrConv(Cells(16, 1), 1)
Cells(18, 1) = StrConv(Cells(18, 1), 1)
Cells(17, 7) = StrConv(Cells(17, 7), 1)

Quand veux-tu que cette action se fasse ?, actuellement à chaque fois que tu pointes une autre cellule.......

et

' clic en dehors du tableau pous effacer la ligne coloriée
Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
' Pour le tableau de désignation
If Not Intersect(Target, Range("A12:Y25")) Is Nothing And Target.Count = 1 Then
Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
End If

quand veux-tu qu eces actions se fassent ?
le premier Interior.Pattern = xlNone se fait aussi à chaque fois que tu pointes une autre cellule

et l'intérieur du i fse fait uniquement quand tu pointes dans la zone A12:Y25
 
Vote positif 0 Vote négatif
Re : Correction macro

Bonjour à tous 🙂

Voici le macro en question :

Sub MasquerLignes()
'Masquer les lignes
Range(Cells(49, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True
'Masquer les colonnes
Range(Cells(1, 8), Cells(1, Columns.Count)).EntireColumn.Hidden = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(16, 1) = StrConv(Cells(16, 1), 1)
Cells(18, 1) = StrConv(Cells(18, 1), 1)
Cells(17, 7) = StrConv(Cells(17, 7), 1)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' clic en dehors des tableaux pous effacer les lignes coloriées
Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
' Pour la partie désignation
If Not Intersect(Target, Range("A23:H43")) Is Nothing And Target.Count = 1 Then
Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C23:E43")) Is Nothing Then
Target = UCase(Left(Target, 1)) & Mid(Target, 2)
End If
End Sub
Cliquez pour agrandir...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Correction macro

Re

je ne comprends pas tout à ton code.... notamment les histoires de ligne colorée (SelectionChange)

pour le conflit Change, tout le code suivant est à recopier (fenêtre VBA feuille aaaa:

Code: 
Public annul 'évite les rebouclages multiples dans les worksheet_change
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ' clic en dehors des tableaux pous effacer les lignes coloriées
 Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
 ' Pour la partie désignation
 If Not Intersect(Target, Range("A23:H43")) Is Nothing And Target.Count = 1 Then
 Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
 Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
 End If
 End Sub
 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Or annul = 1 Then annul = 0: Exit Sub
 'conversion écriture A16, A17, A18
 If Target.Address = "$A$16" Then Cells(16, 1) = StrConv(Cells(16, 1), 1): annul = 1: Exit Sub
 If Target.Address = "$A$18" Then Cells(18, 1) = StrConv(Cells(18, 1), 1): annul = 1: Exit Sub
 If Target.Address = "$A$17" Then Cells(17, 7) = StrConv(Cells(17, 7), 1): annul = 1: Exit Sub
 If Not Intersect(Target, Range("C23:E43")) Is Nothing Then Target = UCase(Left(Target, 1)) & Mid(Target, 2): annul = 1: Exit Sub
 annul = 0
 End Sub

dans le sub worksheet_change : quand on change la valeur on reboucle, j'ai introduit annul pour sortir au plus vite lors du rebouclage, le reste c'est d'après ce que j'ai cru comprendre du code
 
Vote positif 0 Vote négatif
Re : Correction macro

ERIC S à dit:
Re

je ne comprends pas tout à ton code.... notamment les histoires de ligne colorée (SelectionChange)

pour le conflit Change, tout le code suivant est à recopier (fenêtre VBA feuille aaaa:

Code: 
Public annul 'évite les rebouclages multiples dans les worksheet_change
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ' clic en dehors des tableaux pous effacer les lignes coloriées
 Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
 ' Pour la partie désignation
 If Not Intersect(Target, Range("A23:H43")) Is Nothing And Target.Count = 1 Then
 Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
 Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
 End If
 End Sub
 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Or annul = 1 Then annul = 0: Exit Sub
 'conversion écriture A16, A17, A18
 If Target.Address = "$A$16" Then Cells(16, 1) = StrConv(Cells(16, 1), 1): annul = 1: Exit Sub
 If Target.Address = "$A$18" Then Cells(18, 1) = StrConv(Cells(18, 1), 1): annul = 1: Exit Sub
 If Target.Address = "$A$17" Then Cells(17, 7) = StrConv(Cells(17, 7), 1): annul = 1: Exit Sub
 If Not Intersect(Target, Range("C23:E43")) Is Nothing Then Target = UCase(Left(Target, 1)) & Mid(Target, 2): annul = 1: Exit Sub
 annul = 0
 End Sub

dans le sub worksheet_change : quand on change la valeur on reboucle, j'ai introduit annul pour sortir au plus vite lors du rebouclage, le reste c'est d'après ce que j'ai cru comprendre du code
Cliquez pour agrandir...

re,
Sa à l'air de bien fonctionné,
mise à part deux truck, la cellule G17 ne se met plus en majuscule,
puis lorsque que je clic sur C23 par exemple, le surlignage s'active pas (je pense que sa a du à la fusion des cellules)
a+
 
Vote positif 0 Vote négatif
Re : Correction macro

Re

1/ cellule G17 c'est moi qui ai fait une erreur, il faut changer $A$17 en $G$17

2/ ton surlignage comme je te l'ai dit je ne comprends pas comment tu veux qu'il fonctionne :

Code: 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ' clic en dehors des tableaux pous effacer les lignes coloriées
 Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
 ' Pour la partie désignation
 If Not Intersect(Target, Range("A23:H43")) Is Nothing And Target.Count = 1 Then
 Range("A23:H" & Range("A65535").End(xlUp).Row).Interior.Pattern = xlNone
 Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
 End If
 End Sub

a) à chaque changement de pointage de cellule, quelle que soit la cellule, tu supprimes le fond de la zone A23 et suivantes ?????
b) ensuite quand tu es sur une cellule non fusionnée (target.count=1) tu supprime le fond de toute ta facture ????
c) puis tu colories la ligne en cours


Que veux-tu faire exactement?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Correction macro

re,

Je t'ai envoyé en mp concernant la copie original de ma facture 🙂

enfet lorsque que je selectionne une ligne de A23::H23 par exemple, je veux qu'il me surligne la ligne selectionnée ligne fusionnées compris, c'est à dire de A23:H23
a+
 
Vote positif 0 Vote négatif
Re : Correction macro

Re

essai de tester cela

Code: 
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' clic en dehors des tableaux pous effacer les lignes coloriées
  Range("A23:H" & Range("H65535").End(xlUp).Row).Interior.Pattern = xlNone
  ' Pour la partie désignation
  If Not Intersect(Target, Range("A23:B43")) Is Nothing And Target.Count = 1 Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
  End If
  If Not Intersect(Target, Range("C23:E43")) Is Nothing And Target.Count = 3 Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
  End If
  If Not Intersect(Target, Range("F23:H43")) Is Nothing And Target.Count = 1 Then
        Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.Color = RGB(200, 100, 150)
  End If
  End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
274
anthoYS
anthoYS
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
251
anthoYS
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
742
un internaute
U
gh4
  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
501
dysorthographie
dysorthographie
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
P
  • Question Question
XL 2010 Recopie de la date du jour jusqu'à la dernière ligne non vide
Réponses
5
Affichages
178
philmaure
P
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
767
youguybass
Y
anthoYS
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
151
anthoYS
anthoYS
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
330
patricko-13
P
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
194
danielco
D
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
richardlion
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
job75
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
478
nabilexcel2007
N
anthoYS
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
479
sylvanu
sylvanu
KTM
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
270
KTM
KTM
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
909
TooFatBoy
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
230
Marie L
M
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
561
mikeduff
M
Retour