VBA application Call ne marche pas

[Kouik Kouik jr]

Salut le forum !

Lorsque j'apelle ma fonction Call Couleurs afin de colorier certaines cellules, cette application ne me donne aucun resultat ! (Alors que cette application marche je l'ai testée) mais des que je l'utilise avec Call alors là ca marche plus

Quelqu'un aurait il une petite idée ?

Sub Couleurs()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

        Dim dossier_all As String
        Dim dossier_Journal As String
        Dim dossier_Essais As String
        Dim Cel As Range
        
    Dim Déb As Integer, Fin As Integer, i As Integer, j As Integer


    'Colorier cellules
    'colorier 1ere colonne final (jaune = mêmes prix)




    Dim CelluleTrouvee1 As Range
    Dim ColFinale1 As Integer


    i = 1
    While i < Fin

    
        Sheets("HSBC").Select


        Set CelluleTrouvee1 = Range("A1:O1").Find("final", LookAt:=xlPart)
        ColFinale1 = CelluleTrouvee1.Column



        If Worksheets("HSBC").Cells(i, CelluleTrouvee1.Column).Value = Worksheets("HSBC").Range("Q" & i).Value Then
            Worksheets("HSBC").Activate
            Worksheets("HSBC").Cells(i, CelluleTrouvee1.Column).Select
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 65535

            End With

        End If
        i = i + 1

    Wend
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True


End Sub

 

[Hulk]

Re : VBA application Call ne marche pas

Hello Kouik Kouik,

Tu as oublié ce fil ?

Parce que ça serait gentil la prochaine fois de tenir informés les gens à qui tu t'adresses pour demander de l'aide.

A moins que tu ailles oublié, la moindre c'est de dire "Oui ça joue", "Non ça ne joue pas", "Merci", et en plus, si bon vouloir, déposer ta solution finale afin que d'autres puissent en profiter.

Cdt, Hulk.



EDIT : De plus, je ne crois pas que de balancer des codes entiers comme ça soit bien utile.
Pour te dire, dans le dernier fil au sujet du graphique, tu as balancer le code comme ici, ben je me suis amusé un moment à comprendre et faire !

Tu as meilleur temps de déposer ton fichier.

Cdt, Hulk.

Re EDIT : Slt MJ

 

[MJ13]

Re : VBA application Call ne marche pas

Bonjour kouik kouik

As tu essayé de debogger ton code?

Oh bonjour Hulk (oh il est vert de rage notre Hulk). Mais il n'a pas tort, pas suivi l'affaire!

 

[Kouik Kouik jr]

Re : VBA application Call ne marche pas

Il ne me met pas de bug, il ne reconnait tout simplement pas la fonction Call Couleurs

C'est comme si il n'appelait pas du tout ma procedure Couleurs ?

 

[MJ13]

Re : VBA application Call ne marche pas

Re

Oui, c'est vrai qu'avec le fichier, c'est plus sympas.

 

[Kouik Kouik jr]

Re : VBA application Call ne marche pas

Merci de votre aide,


Voici la feuille excel en question (j'ai pas pu tout mettre question de taille)

 

[Kouik Kouik jr]

Re : VBA application Call ne marche pas

je continue a chercher sur le web mais c'est vrai que je comprend pas pourquoi y reconnais pas mon Call Couleurs car il ne le lance pas

 

[MJ13]

Re : VBA application Call ne marche pas

Re

Bon: la j'ai pouvert, j'ai mis la macro couleurs dedans (cela m'a pris du temps). Et ensuite rien ne correspond.

Quand on demande un fichier c'est les données et la macro qui s'y rapporte avec le nom des feuilles adaptés (sinon, c'est un vrai jeu de piste) et c'est peut-être pour cela que cela ne fonctionne pas.

Les macros VBA c'est un language qui fonctionne bien (normalement) si on comprend ce que l'on fait.

Pour le debogage, je met un stop dans le code ou Alt+F8 et en mode détail.

 

[fifi]

Re : VBA application Call ne marche pas

bonsoir tous

Kouik Kouik jr essaye d'appeler ta macro comme suivant

run "Couleurs"

les call n'ont jamais marché chez moi.

bonne soirée

 

[Kouik Kouik jr]

Re : VBA application Call ne marche pas



ca ne marche toujours pas ! avec run ca me fait comme avec Call

il ne reconnait pas ma procédure et ne l'appele pas !

De plus je ne peux pas mettre plus de fichier cela prend trop de place...