Vba et création de macro

Fermé
naya85 Messages postés 27 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 25 juin 2008 - 17 juin 2008 à 16:10
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 20 juin 2008 à 10:30
Bonjour,

j'ai crée un tableau dont j'ai coloré les colonnes avec une macro , le problème est que les colonnes sont colorés au delà du tableau .... comment pourrais arrêter la coloration à la fin du tableau

Merci!

@+
A voir également:

7 réponses

Réponse 1 / 7
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 16:12
Bonjour,

Si tu nous mets le code de ta macro, on peut essayer de t'aider ...

;o)
0
naya85 Messages postés 27 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 25 juin 2008
17 juin 2008 à 16:37
En fait le tableau existe dans un autre fichier , c'est un tableau dynamique dont les dimensions chagent en fct des paramètres chiosis, je veux qu'à chaque foisque je change ce tableau mon nouveau tableau sois colorié et que mon tableau ne soit pas dépassé

Merci pour ton aide

@+
0
Réponse 2 / 7
naya85 Messages postés 27 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 25 juin 2008
17 juin 2008 à 16:34
je te remercie pour avoir aidée pour un premier temps

Voici le corps demon code

Sub Color_tab()

Dim i As Integer, j As Integer
Dim CurrentSheet As Worksheet
Dim ColumnName As String

For Each CurrentSheet In ActiveWorkbook.Worksheets
If (CurrentSheet.Cells(1, 1).Value = "") Then
For j = 1 To 105 'il faut mettre en param la dernière cellule du tableau
For i = 1 To 8
ColumnName = CurrentSheet.Cells(1, i).Value
If (ColumnName <> "") Then

If (Left(ColumnName, 30) = "10 - No Run") Then
CurrentSheet.Cells(j, i).Interior.ColorIndex = 34

ElseIf (Left(ColumnName, 30) = "20 - Not Completed") Then
CurrentSheet.Cells(j, i).Interior.ColorIndex = 35

ElseIf ((Left(ColumnName, 30) = "30 - Failed")) Then
CurrentSheet.Cells(j, i).Interior.ColorIndex = 36

ElseIf (Left(ColumnName, 30) = "40 - Passed with reserve") Then
CurrentSheet.Cells(j, i).Interior.ColorIndex = 38

ElseIf (Left(ColumnName, 30) = "80 - Passed") Then
CurrentSheet.Cells(j, i).Interior.ColorIndex = 39

ElseIf (Left(ColumnName, 10) = "90 - N/A") Then
CurrentSheet.Cells(j, i).Interior.ColorIndex = 40

Else
CurrentSheet.Cells(j, i).Interior.ColorIndex = 37

End If

Else
CurrentSheet.Columns(i).Interior.ColorIndex = xlNone

End If

Next i
Next j

End If
Next CurrentSheet
End Sub
0
Réponse 3 / 7
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 16:41
Es-tu sûr que la dernière ligne de ton tableau soit la 105 ?

Pourquoi ne pas nommer la plage de ton tableau et parcourir uniquement les cellules de la plages ?

0
Réponse 4 / 7
naya85 Messages postés 27 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 25 juin 2008
17 juin 2008 à 17:00
voilà exactement cest là où je veux en venir.......comme je tai dit il sagit dun tableau dynamique à la base dont le nombre de ligne varie entre 1 et 105
en fait jai crée une mlacro pour copier et coller le tableau résultant dans une autre feuille
moi je veux que le nombre de lignes coloriés varie en fonction de ce que jaurai choisi dans mon tableau dynamique

Merci bcp Polux31


bonne fin de journée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 juin 2008 à 08:22
Bonjour,

As-tu des lignes vides dans ce tableau ? Ou y a t-il une colonne sans ligne vide dans le tableau ?
0
Réponse 6 / 7
naya85 Messages postés 27 Date d'inscription jeudi 5 juin 2008 Statut Membre Dernière intervention 25 juin 2008
20 juin 2008 à 10:22
Bonjour

je te remercie pour m'avoir répondue , j'ai trouvé la solution

parcontre , j'ai un autre problème.....en fait j'ai deux feuilles excel (dans deux fichiers différents)

sur l'une j'ai fait une liste de lots (L1;L2;L3 ) dans la feuille1 et dans l'autre j'ai créé un tableau dynamique dans une feuille2, l'un de ses champs est lot(cad ma liste L1;L2;L3)

ma question est que je voudrais à partir de ma première liste que j'ai créé dans la feuille 1, par exemple si je choisis L1 dans la feuille, que ça se génère automatiquement dans mon tableau dynamique et que ça soit les infos relatifs à L1

je ne sais pas si jai été assez claire

merci!

@++

naya
0
Réponse 7 / 7
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 juin 2008 à 10:30
Bonjour,

En fait tu veux quand tu double-cliques sur une cellule d'un fichier, que les infos de celle-ci se mettent automatiquement dans la cellule correspondante d'un autre fichier ? c'est bien ça ?

0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses