Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Message "erreur de compilation..." + 1 question

Message "erreur de compilation..." + 1 question

12 réponses
Avatar
Tatane
Bonjour,

Le code ci-dessous (merci à Monsieur Sigonneau) fonctionne bien sur une
machine mais sur une autre met le message "Erreur de compilation, projet ou
bibliothèque introuvable" et ne s'exécute pas.
----------------------
Private Sub Worksheet_Activate()
Dim Tab_Valeurs() As Integer
Col = 4
Val_Cher1 = "Matchs"
Val_Cher2 = "Entraînement"
Val_Cher3 = "Tournoi Interne"
Val_Cher4 = "Tournoi Individuel"
Val_Cher5 = "Tournoi par équipe"
Val_Cher6 = "Equipe chez TOFF"
Val_Cher7 = "Individuel chez TOFF"
m = Application.WorksheetFunction.CountIf(Columns(Col), "=" & Val_Cher)
If m <> 0 Then
n = Columns(Col).Find("*", Cells(1, Col), , , , xlPrevious).Row
For i = 1 To n
If Cells(i, Col) = Val_Cher1 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 19
ElseIf Cells(i, Col) = Val_Cher2 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 39
ElseIf Cells(i, Col) = Val_Cher3 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 40
ElseIf Cells(i, Col) = Val_Cher4 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 42
ElseIf Cells(i, Col) = Val_Cher5 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 43
ElseIf Cells(i, Col) = Val_Cher6 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 44
ElseIf Cells(i, Col) = Val_Cher7 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 45
End If
Next
Range("A2").Select
End If
End Sub
----------------------
Pouvez-vous me dire que faire pour remédier à cela ?

De plus, dans la foulée, j'applique une couleur sur la cellule cherchée mais
je voudrais colorier les cellules devant et dérrière ma sélection "Col" (en
gros, Col-3 [colonne A] jusqu'à Col+21 [colonne Y]).

Que dois-je modifier ? j'ai essayé plusieurs choses dans les lignes
"Cells(i, Col).Interior.ColorIndex = 45" mais sans succès.

Par avance, merci.

--
http://8pool.over-blog.com/
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
1 2
Avatar
JB
Avec Données/Validation

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([D2:D1000], Target) Is Nothing And Target.Count = 1
Then
p = Application.Match(Target, [Couleurs], 0)
If Not IsError(p) Then
Range(Target.Offset(0, -3), Target.Offset(0,
4)).Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex
End If
End If
End Sub

http://cjoint.com/?equahmgrmW

JB

On 16 avr, 17:48, Tatane wrote:
Oups ! Le fichier est trop gros, le voici compressé

http://cjoint.com/?eqrTYSlqCx

--http://8pool.over-blog.com/




Ton lien n'est pas bon

JB
On 16 avr, 16:52, Tatane wrote:
Bonjour "Jacky",

Votre solution ne fonctionne uniquement en manuel (Editeur VBA - F5 o u F8)
mais au changement d'onglet, seule la cellule trouvée est colorié e.

Si vous souhaitez essayer sur mon fichierhttp://cjoint.com/?eqqV0jd01e
(l'onglet Listing est concerné par ce coloriage automatique)

--http://8pool.over-blog.com/




Bonjour,

je voudrais colorier les cellules devant et dérrière ma sél ection "Col"
(en
gros, Col-3 [colonne A] jusqu'à Col+21 [colonne Y]).


A priori les lignes à modifier:
'-------
Cells(i, Col).Interior.ColorIndex = 19
en:
Range(Cells(i, 1), Cells(i, 25)).Interior.ColorIndex = 19
et
Cells(i, Col).Interior.ColorIndex = 39
en:
Range(Cells(i, 1), Cells(i, 25)).Interior.ColorIndex = 39
'--------------
etc....
Pas testé :-(((((
--
Salutations
JJ

"Tatane" a écrit dans le message de news:

Bonjour,

Le code ci-dessous (merci à Monsieur Sigonneau) fonctionne bien sur une
machine mais sur une autre met le message "Erreur de compilation, projet
ou
bibliothèque introuvable" et ne s'exécute pas.
----------------------
Private Sub Worksheet_Activate()
Dim Tab_Valeurs() As Integer
Col = 4
Val_Cher1 = "Matchs"
Val_Cher2 = "Entraînement"
Val_Cher3 = "Tournoi Interne"
Val_Cher4 = "Tournoi Individuel"
Val_Cher5 = "Tournoi par équipe"
Val_Cher6 = "Equipe chez TOFF"
Val_Cher7 = "Individuel chez TOFF"
m = Application.WorksheetFunction.CountIf(Columns(Col), "=" & Val_Cher)
If m <> 0 Then
n = Columns(Col).Find("*", Cells(1, Col), , , , xlPrevious). Row
For i = 1 To n
If Cells(i, Col) = Val_Cher1 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 19
ElseIf Cells(i, Col) = Val_Cher2 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 39
ElseIf Cells(i, Col) = Val_Cher3 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 40
ElseIf Cells(i, Col) = Val_Cher4 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 42
ElseIf Cells(i, Col) = Val_Cher5 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 43
ElseIf Cells(i, Col) = Val_Cher6 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 44
ElseIf Cells(i, Col) = Val_Cher7 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 45
End If
Next
Range("A2").Select
End If
End Sub
----------------------
Pouvez-vous me dire que faire pour remédier à cela ?

De plus, dans la foulée, j'applique une couleur sur la cellule cherchée
mais
je voudrais colorier les cellules devant et dérrière ma sél ection "Col"
(en
gros, Col-3 [colonne A] jusqu'à Col+21 [colonne Y]).

Que dois-je modifier ? j'ai essayé plusieurs choses dans les li gnes
"Cells(i, Col).Interior.ColorIndex = 45" mais sans succès.

Par avance, merci.

--
http://8pool.over-blog.com/-Masquer le texte des messages préc édents -



- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



- Afficher le texte des messages précédents -






Avatar
Tatane
Bonjour,

Merci "Jb" pour la solution et pour les diverses façons de procéder.

Encore une fois, je remarque que ma prog était réalisée au marteau et au
burin.

Bonne journée.

--
http://8pool.over-blog.com/



Avec Données/Validation

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([D2:D1000], Target) Is Nothing And Target.Count = 1
Then
p = Application.Match(Target, [Couleurs], 0)
If Not IsError(p) Then
Range(Target.Offset(0, -3), Target.Offset(0,
4)).Interior.ColorIndex = Range("couleurs")(p).Interior.ColorIndex
End If
End If
End Sub

http://cjoint.com/?equahmgrmW

JB

On 16 avr, 17:48, Tatane wrote:
Oups ! Le fichier est trop gros, le voici compressé

http://cjoint.com/?eqrTYSlqCx

--http://8pool.over-blog.com/




Ton lien n'est pas bon

JB
On 16 avr, 16:52, Tatane wrote:
Bonjour "Jacky",

Votre solution ne fonctionne uniquement en manuel (Editeur VBA - F5 ou F8)
mais au changement d'onglet, seule la cellule trouvée est coloriée.

Si vous souhaitez essayer sur mon fichierhttp://cjoint.com/?eqqV0jd01e
(l'onglet Listing est concerné par ce coloriage automatique)

--http://8pool.over-blog.com/




Bonjour,

je voudrais colorier les cellules devant et dérrière ma sélection "Col"
(en
gros, Col-3 [colonne A] jusqu'à Col+21 [colonne Y]).


A priori les lignes à modifier:
'-------
Cells(i, Col).Interior.ColorIndex = 19
en:
Range(Cells(i, 1), Cells(i, 25)).Interior.ColorIndex = 19
et
Cells(i, Col).Interior.ColorIndex = 39
en:
Range(Cells(i, 1), Cells(i, 25)).Interior.ColorIndex = 39
'--------------
etc....
Pas testé :-(((((
--
Salutations
JJ

"Tatane" a écrit dans le message de news:

Bonjour,

Le code ci-dessous (merci à Monsieur Sigonneau) fonctionne bien sur une
machine mais sur une autre met le message "Erreur de compilation, projet
ou
bibliothèque introuvable" et ne s'exécute pas.
----------------------
Private Sub Worksheet_Activate()
Dim Tab_Valeurs() As Integer
Col = 4
Val_Cher1 = "Matchs"
Val_Cher2 = "Entraînement"
Val_Cher3 = "Tournoi Interne"
Val_Cher4 = "Tournoi Individuel"
Val_Cher5 = "Tournoi par équipe"
Val_Cher6 = "Equipe chez TOFF"
Val_Cher7 = "Individuel chez TOFF"
m = Application.WorksheetFunction.CountIf(Columns(Col), "=" & Val_Cher)
If m <> 0 Then
n = Columns(Col).Find("*", Cells(1, Col), , , , xlPrevious).Row
For i = 1 To n
If Cells(i, Col) = Val_Cher1 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 19
ElseIf Cells(i, Col) = Val_Cher2 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 39
ElseIf Cells(i, Col) = Val_Cher3 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 40
ElseIf Cells(i, Col) = Val_Cher4 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 42
ElseIf Cells(i, Col) = Val_Cher5 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 43
ElseIf Cells(i, Col) = Val_Cher6 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 44
ElseIf Cells(i, Col) = Val_Cher7 Then
m = m + 1
ReDim Preserve Tab_Valeurs(m)
Tab_Valeurs(m) = i
Cells(i, Col).Interior.ColorIndex = 45
End If
Next
Range("A2").Select
End If
End Sub
----------------------
Pouvez-vous me dire que faire pour remédier à cela ?

De plus, dans la foulée, j'applique une couleur sur la cellule cherchée
mais
je voudrais colorier les cellules devant et dérrière ma sélection "Col"
(en
gros, Col-3 [colonne A] jusqu'à Col+21 [colonne Y]).

Que dois-je modifier ? j'ai essayé plusieurs choses dans les lignes
"Cells(i, Col).Interior.ColorIndex = 45" mais sans succès.

Par avance, merci.

--
http://8pool.over-blog.com/-Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -











1 2