Pouvez vous m'aider

mpesche-suivi-entretien-vehicules-2020.xlsm

Bonjour, j'ai un problème sur un fichier

je clic sur un véhicule, je tape le MDP = melodie, je sélectionne un véhicule.

je note un commentaire, normalement, quand dans l'accueil je clic sur "suivi entretien" je tape le MDP = etat, je devrai retrouver ce commentaire, mais la, rien!!

Les mdp :

administrateur = securite

filtres = trouve

suivi entretien = etat

merci de votre aide

PS: besoins de details car je ne suis pas du tout un expert

Bonsoir Mpesche

Pour joindre un fichier veuillez cliquer sur cet icone :

Merci

mpesche-suivi-entretien-vehicules-2020.xlsm

mpesche-suivi-entretien-vehicules-2020.xlsm

je sais pas pourquoi ca marche pas

Avez vous cliqué sur l'icone que je vous ai montré?

il ouvre une fenêtre sur laquelle vous cliquez, ensuite vous choisissez le fichiez dans l'arborescence

Actuellement je n'ai que son nom!!!

Merci

oui je selectionne mon fichier, il me met bien le trombone et quand je clic sur envoyer il me met que le nom du fichier

Là je ne peux plus rien faire, il faudrait envoyer un message privé à Sébastien, mais vérifie bien tout, le fichier doit avoir une taille maximum

Cdt

il faut Firefox ou chrome

bonsoir,

ça fonctionne aussi avec edge.

je viens de passer par chrome, ca marche

Bonjour Mpesche

cela marche avec un tout petit changement :

Seule la dernière ligne de ce code est modifiée dans la procédure :

Private Sub CommandButton1_Click()

juste avant le End With

Cdt

.Activate   ' AJOUT DE RIC
      .Range("C" & LigneFin) = Format(CDate(TextBox3.Text), "hh:mm")
      .Range("D" & LigneFin) = ComboBox1.Text   ' chauffeur
      .Range("E" & LigneFin) = ComboBox2.Text   ' véhicule
      ''' For Each Boite In Me.Controls
      '''  If InStr(1, Boite.Name, "CheckBox") > 0 Then
      '''   Colonne = Colonne + 1
      '''   .Range("D" & LigneFin).Offset(0, Colonne) = IIf(Boite, "Ok", "")
      '''  End If
      ''' Next
      .Cells(LigneFin, 6).Value = TextBox2.Value

Je ne suis vraiment pas douer, j'ai essayé mais ça ne marche pas.

je doit certainement mal m'y prendre

jai copierr la derniere phrase

.Cells(LigneFin, 6).Value = TextBox2.Value

mais certainement pas au bon endroit

Bonjour

Merci de bien vouloir changer le titre de votre sujet afin qu'il corresponde un minimum à votre demande. Il vous suffit de retourner sur votre premier post et de cliquer sur le crayon en haut à droite pour accéder à la rubrique et changer le titre.

Au besoin lisez ces quelques lignes qui vous aideront dans vos demandes et reponses --> https://forum.excel-pratique.com/excel/a-lire-avant-de-poster-charte-du-forum-et-informations-utiles...

Merci de votre participation

Ca marche super!!!!

merci