Problème code vba

Fermé

thithi25 - Modifié le 30 avril 2018 à 15:28
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 mai 2018 à 14:55

Bonjour j'aurai besoin d'un coup de main pour voir ce qui ne va pas dans ce code . Excel me dit qu'il y a une erreur sur cette ligne {if cell.value=cells(z,3).value } mais je vois pas l'erreur.
Merci

Sub CouleurNew()
Application.ScreenUpdating = False

Set F1 = Worksheets("worksheet")

With F1
Set plage = .Range("D3:AT10000")
End With

For Z = 3 To 6

    For Each cell In plage
    
    cell.Select
    
    If cell.Value = Cells(Z, 3).Value Then Selection.Interior.Color = F1.Cells(Z, 3).Interior.Color
    
    Next
    
Next Z


Application.ScreenUpdating = True

End Sub

A voir également:

Problème code vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

2 réponses

Réponse 1 / 2

NHenry Messages postés 15163 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 1 novembre 2024 345
30 avril 2018 à 15:37

Quelle erreur ?
Quel message ?

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
Modifié le 2 mai 2018 à 11:16

Bonjour

ta plage comporte quelques 43000 Cellules avec en plus un "select" particulièrement chronophage , si on parcoure cellule par cellule, ce sera très long
l'astuce consiste à chercher(find) dans la plage les cellules ayant la valeur de C3( puis C4,5,6)

regarde cette proposition
https://mon-partage.fr/f/aht6VQIP/

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
4 mai 2018 à 16:28

Merci !

de rien....

michael_scott Messages postés 58 Date d'inscription mercredi 2 avril 2014 Statut Membre Dernière intervention 8 novembre 2018
4 mai 2018 à 17:55

Sub Nettoyer()
Dim Plage As Range
Set Plage = Range("D3:AT10000")
Plage.Interior.ColorIndex = -4142
End Sub

J'ai du faire ça pour que ta macro marche, "variable Plage non définie" -> bug

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
7 mai 2018 à 14:55

effectivement !
Merci

Discussions similaires

code d'activation GTA 5 steam

Code de renvoi d'appel : Ooredo, Mobilis...

Codes bateaux et avion GTA vice city Stories

enigme

Code Ascii