Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
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

10 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
Bonjour,

Vérifier dans Outils/Références s'il y a une bibli manquante.

JB

On 16 avr, 10:48, Tatane wrote:
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_C her)
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/


Avatar
Tatane
Bonjour "JB",

Oui effectivement, je l'ai décochée et ça fonctionne. Merci.

Autrement, aurais-tu une solution pour ma demande en fin de post (à propos
d'étendre ma sélection) ?

Par avance, merci

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



Bonjour,

Vérifier dans Outils/Références s'il y a une bibli manquante.

JB

On 16 avr, 10:48, Tatane wrote:
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/







Avatar
Modeste
Bonsour® Tatane avec ferveur ;o))) vous nous disiez :

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.


avec le peu de code fourni et sans exemple de données il est difficile de
trouver une erreur ;o)))

quelques investigations possibles :

dans le module de feuille
ajouter Option Explicit

dans VBE Menu Outils >options > General
Choisir : arret sur toutes les erreurs
Cocher : Compilation sur demande

que contient la variable Val_cher, est-elle déclarée Public

l'instruction Cells(x,y) doit etre qualifiée !!!!
expression.Cells
expression Obligatoire. Expression qui renvoie un objet Worksheet.

----------------------
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"
' *********************

' Que contient la variable Val_Cher ???????????????????????????????????????
m = Application.WorksheetFunction.CountIf(Columns(Col), "=" & Val_Cher)
' *********************

If m <> 0 Then
'*********************

' !!!!!!!!!!!!!!!! aucune des instruction Cells(1,col) ci-dessous n'est
qualifiée !!!!!!!
'----- mettre au moins activesheet ... ;o)))
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.


--
--
@+
;o)))

Avatar
Tatane
Bonjour, "Modeste"

Désolé, mais je n'arrive toujours pas à parler le langage VBA aisément. Tout
ça pour dire que je n'ai pas compris ce que vous m'avez demandé.

Pour la bibliothèque, "JB" m'a fourni la réponse mais pour ce qui est de
colorier plusieurs cellules .... Je sèche lamentablement.

J'ai récupéré le fichier "RechercheDansFeuille2.txt" de Monsieur Sigonneau
et essayé de l'adapter à mes besoins.

Pour votre confort, je vous joins le fichier qui me donne autant de soucis:

http://cjoint.com/?eqoQNFl6fc

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



Bonsour® Tatane avec ferveur ;o))) vous nous disiez :

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.


avec le peu de code fourni et sans exemple de données il est difficile de
trouver une erreur ;o)))

quelques investigations possibles :

dans le module de feuille
ajouter Option Explicit

dans VBE Menu Outils >options > General
Choisir : arret sur toutes les erreurs
Cocher : Compilation sur demande

que contient la variable Val_cher, est-elle déclarée Public

l'instruction Cells(x,y) doit etre qualifiée !!!!
expression.Cells
expression Obligatoire. Expression qui renvoie un objet Worksheet.

----------------------
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"
' *********************

' Que contient la variable Val_Cher ???????????????????????????????????????
m = Application.WorksheetFunction.CountIf(Columns(Col), "=" & Val_Cher)
' *********************

If m <> 0 Then
'*********************

' !!!!!!!!!!!!!!!! aucune des instruction Cells(1,col) ci-dessous n'est
qualifiée !!!!!!!
'----- mettre au moins activesheet ... ;o)))
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.


--
--
@+
;o)))






Avatar
Jacky
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/


Avatar
JB
Private Sub Worksheet_Activate()
valCherchées = Array("matchs", "Entraînement", "Tournoi Interne",
"Tournoi Individuel", _
"Tournoi par équipe", "Equipe chez TOFF")
couleurs = Array(19, 39, 40, 42, 43, 44)
For Each c In [D:D].SpecialCells(xlCellTypeConstants, 23)
p = Application.Match(c, valCherchées, 0)
If Not IsError(p) Then
Range(c.Offset(0, -3), c.Offset(0, 21)).Interior.ColorIndex =
couleurs(p - 1)
End If
Next c
End Sub

http://cjoint.com/?eqqKWsjF0Y

JB


On 16 avr, 14:14, Tatane wrote:
Bonjour "JB",

Oui effectivement, je l'ai décochée et ça fonctionne. Merci.

Autrement, aurais-tu une solution pour ma demande en fin de post (à pro pos
d'étendre ma sélection) ?

Par avance, merci

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




Bonjour,

Vérifier dans Outils/Références s'il y a une bibli manquante.

JB

On 16 avr, 10:48, Tatane wrote:
Bonjour,

Le code ci-dessous (merci à Monsieur Sigonneau) fonctionne bien sur une
machine mais sur une autre met le message "Erreur de compilation, pro jet 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), "=" & V al_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 cher chée mais
je voudrais colorier les cellules devant et dérrière ma sélecti on "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 -




Avatar
Tatane
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 fichier http://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/







Avatar
JB
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électi on "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, pro jet
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), "=" & Va l_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 cher chée
mais
je voudrais colorier les cellules devant et dérrière ma sélecti on "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éde nts -



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




Avatar
Tatane
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 -









Avatar
JB
http://cjoint.com/?eqsZSgWUPl

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 -






1 2