Contenu récent par KINANI

Bonjour tout le monde, J'ai un tableau d'inventaire de tout les machines de l'entreprise et dans ce tableau j'ai une colonne ou j'ai mis tout les documents de chaque machine en lien hyper text, et dans une autre feuille sur excel j'ai un plan de maintenance préventive, dans lequel j'ai créer un...

Bonjour, merci beaucoup ça marche vraiment bien maintenant, pour le "Délai" c juste que j'ai oublié de l'enlever, il me sert à rien du tout là

et voilà la programmation de mon userform3 Private Sub UserForm_initialize() UserForm3.Caption = "Attention:Intervention en retard" Dim Delai As Variant Dim i As Integer For i = 13 To Range("F5000").End(xlUp).Row Delai = Cells(i, 500) - Range("AN10") If...

Bonjour, mercii ça a marché, mais j'ai un petit soucis c que mon userform3 s'affiche pas directement quand j'ouvre le fichier excel pour me montrer qu'il y a un retard, faut que j'ouvre le programme et cliqué sur exécuté pour que ça marche

Bonjour tout le monde, J'ai fait un petit programme (voir ci-dessous) sur thisworkbook et le problème c qu'il s'applique sur mes deux feuilles alors que moi je veux qu'il s'applique juste sur une seule et je sais pas comment faire, j'ai essayé avec sheet("feuille1").select("feuille") mais ça...

Personne peut m'aider à résoudre ce problème??

Bonjour à tous, Je viens vous embêter une deuxième fois haha Cette fois j'ai un calendrier qui me fait apparaître les jours ou j'ai des interventions à faire en m'affichant "1" et là je veux qu'il m'affiche l'un des trois couleurs (orange, rouge, vert) à la place du 1. Le vert si la date...

C bon j'ai réussi à faire ce que je veux et voilà le code que j'ai utilisé Private Sub ComboBox1_Change() myval = Me.ComboBox1.Value lr = ThisWorkbook.Sheets("Plan de maintenance").Cells(Rows.Count, 1).End(xlUp).Row Me.ComboBox2.Clear For x = 13 To lr If myval = ThisWorkbook.Sheets("Plan...

Quand j'enlève le UsFConsult il m'affiche plus l’erreur, mais ça marche pas, ma combobox2 est toujours vide et petite correction dans mon code précédent, à la place de "i" faut mettre "j"

et j'ai essayé ça mais il me dit que y a un problème dans la troisième ligne :/ Private Sub ComboBox1_Change() Dim j As Integer UsFConsult.ComboBox2.Clear With Sheets("Plan de maintenance") For j = 13 To .[P65536].End(xlUp).Row If UsFConsult.ComboBox1.Value = .Cells(i, 1) Then...

J'arrive toujours pas à le faire, moi je veux par exemple que dans la combobox 1 quand je vais choisir la machine "a", dans la combobox 2 je dois avoir toutes les interventions à faire pour cette machine sachant que le nom de la machine va se répéter dans plusieurs lignes tant que y a des...

Bonjour, j'ai vu que vous avez le même problème que moi (relation entre 2 combobox) et je voulais savoir si vous avez réussi à résoudre le problème grâce aux commentaires des autres membres du site sur ma pub ou non. Bien cordialement,

Merci pour ton fichier, je vais essayer de le lire et voir si je vais réussir à le programmer

Bonjour tout le monde, Je viens vers vous pour demander votre aide, parce que j'arrive pas à programmer ma commandButton, j'ai une Combobox dans laquelle j'ai une liste de machine et je veux que quand je choisi la machine et que je clique sur ma commandButton, je veux que les autres infos...