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

Le
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/
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4445671
Bonjour,

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

JB

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


Tatane
Le #4445661
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
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/







Modeste
Le #4445651
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)))

Tatane
Le #4445611
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)))






Jacky
Le #4445571
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"
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/


JB
Le #4445491
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
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
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 -




Tatane
Le #4445451
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"
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/







JB
Le #4445341
Ton lien n'est pas bon

JB
On 16 avr, 16:52, 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 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"
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 -




Tatane
Le #4445331
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
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"
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 -









JB
Le #4445301
http://cjoint.com/?eqsZSgWUPl

JB

On 16 avr, 17:48, 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
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"
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 -






Publicité
Poster une réponse
Anonyme