Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

erreur '50290' help

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion billyboy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

billyboy

Guest
Bonjour le forum,
Je navigue depuis quelques temps sur le forum et j'y trouve généralement tout ce dont j'ai besoin, cependant aujourd'hui je bloque, je fais donc appel à l'équipe d'experts que vous êtes pour me dépanner.
ci après mon problème:
j'ai utiliser des petits de morceaux de VBA ici et la afin de réaliser un calendrier qui se met en forme automatiquement en fonction des dates ( rtt,ferie, etc..)
Problème, un des code ne fonctionne semble t il pas tres bien, jobtiens le message d'erreur ci après "erreur d'exécution:'50290' erreur défini par l'application ou par l'objet"
la partie du code mise en cause est celle-ci:

Private Sub Worksheet_Calculate()

Dim Cell As Range
For Each Cell In Range("B7:B37")
With Cell
If .Value = Range("M23").Value Then
Range(Cells(.Row, 2), Cell(S.Row, 7)).Interior.ColorIndex = 4
End If
End With
With Cell
If .Value = Range("M24").Value Then
Range(Cells(.Row, 2), Cells(.Row, 7)).Interior.ColorIndex = 4
End If
End With
With Cell
If .Value = Range("M25").Value Then
Range(Cells(.Row, 2), Cells(.Row, 7)).Interior.ColorIndex = 4
End If
End With
With Cell
If .Value = Range("M26").Value Then
Range(Cells(.Row, 2), Cells(.Row, 7)).Interior.ColorIndex = 4
End If
End With
With Cell
If .Value = Range("M27").Value Then
Range(Cells(.Row, 2), Cells(.Row, 7)).Interior.ColorIndex = 4
End If
End With
With Cell
If .Value = Range("M28").Value Then
Range(Cells(.Row, 2), Cells(.Row, 7)).Interior.ColorIndex = 4
End If
End With
With Cell
If .Value = Range("M29").Value Then
Range(Cells(.Row, 2), Cells(.Row, 7)).Interior.ColorIndex = 4
End If
End With
Next Cell

End Sub


Merci d'avance pour toute l'aide que vous pourrez m'apporter.
 
Trier par date Trier par votes
Re : erreur '50290' help

bonjour

Range(Cells(.Row, 2), Cell(S.Row, 7)).Interior.ColorIndex = 4

ce S. me parait peu opportun (là, le but du jeu etait de placer opportun dans un post, j'ai gagné^^)

corrige déjà cette petite erreur, et dis nous

salut
 
Vote positif 0 Vote négatif
Re : erreur '50290' help

Bonjour Billyboy, Hervé, Mutzik,

J'ai essayé ta procédure sans rencontrer d'erreur. Par contre, ce n'est pas nécessaire d'écrire x fois la même chose dans une procédure, il vaut mieux faire une boucle simple.

Je te propose 2 procédures qui font la même chose avec des logiques différentes:

La première avec une boucle sur tous les RTT pour chaque date.
Code: 
Private Sub Worksheet_Calculate()
Dim cell As Range
Range("B7:H37").Interior.ColorIndex = xlNone
For Each cell In Range("B7:B37")
    For i = 23 To 38
    If cell.Value = Range("M" & i).Value Then
    Range(Cells(cell.Row, 2), Cells(cell.Row, 7)).Interior.ColorIndex = 4
    End If
    Next i
Next cell
End Sub

Ou la deuxième avec une recherche dans les RTT pour chaque date:

Code: 
Private Sub Worksheet_Calculate()
Dim cell As Range, c As Range
Range("B7:H37").Interior.ColorIndex = xlNone
For Each cell In Range("B7:B37")
    With Worksheets("FORMULAIRE").Range("M23:M38")
    Set c = .Find(cell.Value, LookIn:=xlFormulas, Lookat:=xlWhole)
    If Not c Is Nothing Then
    Range(Cells(cell.Row, 2), Cells(cell.Row, 7)).Interior.ColorIndex = 4
    End If
    End With
Next cell
 
End Sub

Par ailleurs dans la procédure de ton exemple, la dernière instruction:
Code: 
Range("B7:H37").Interior.ColorIndex = xlNone

Supprime toutes les couleurs que tu as mis précedemment. Donc la procédure telle quelle ne sert à rien 😕

@+

Gael
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
392
dysorthographie
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
839
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
411
nabilexcel2007
N
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
657
youguybass
Y
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
181
treza88
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
511
anthoYS
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
480
mikeduff
M
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
591
un internaute
U
Y
  • Question Question
Microsoft 365 Cdbl et nombres à virgules
Réponses
4
Affichages
262
Valtrase
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
651
lynyrd
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
231
patricko-13
P
  • Question Question
XL 2016 trier 4 colonnes d'une plage de cellules
Réponses
8
Affichages
204
KTM
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
692
kiki29
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
451
Electron24
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
203
anthoYS
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
405
patricktoulon
  • Question Question
XL 2019 Erreur d'exécution "13"
Réponses
1
Affichages
341
sylvanu
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
970
VBA_dev_Anne_Marie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…