Problème code

Bonjour,

Dim x As Integer
Dim Nom As String
Dim Prenom_Matricule As String
Dim lig As String
Dim Resp As String
Dim Metier As String

Dim Serragecouple As Date
Dim Cablage As Date
Dim PercageTaraudage As Date
Dim EpinglageVissage As Date
Dim Rivetage As Date
Dim JeuxAffleurements As Date
Dim Aspect As Date
Dim CollageMasticage As Date
Dim EcrouSertir As Date
Dim Tuyauterie As Date
Dim InitCablage As Date

x = 7
If x = 7 And Not ThisWorkbook.ReadOnly Then

    Worksheets("Feuil1").Activate       'Active la feuille Récapitulatif

    Rows(x).Insert                          'Insert une nouvelle ligne vide
    Rows("6").Select                        'selection de la ligne 6
    Selection.Copy                          'Copie la ligne 6
    Rows("7").Select                        'Selection de la ligne 7
    Selection.PasteSpecial                  'Collage spécial sur la ligne 7

    Nom = InputBox("Entrez le nom :", "Nom")
    Prenom_Matricule = InputBox("Entrez le prénom/Matricule :", "Prénom/Matricule")
    lig = InputBox("Entrez la ligne :", "Ligne")
    Resp = InputBox("Entrez le responsable :", "Responsable EPU")
    Metier = InputBox("Entrez le métier :", "Métier")
    Serragecouple = InputBox("Entrez une date pour serrage au couple :", "Serrage au couple")
    Cablage = InputBox("Entrez une date pour câblage :", "Câblage")
    PercageTaraudage = InputBox("Entrez une date pour perçage/taraudage :", "Perçage/Taraudage")
    EpinglageVissage = InputBox("Entrez une date pour épinglage/vissage :", "Epinglage/Vissage")
    Rivetage = InputBox("Entrez une date pour rivetage :", "Rivetage")
    JeuxAffleurements = InputBox("Entrez une date pour jeux & affleurements :", "Jeux & Affleurements")
    Aspect = InputBox("Entrez une date pour aspect :", "Apsect")
    CollageMasticage = InputBox("Entrez une date pour collage/masticage:", "Collage/Masticage")
    EcrouSertir = InputBox("Entrez une date pour écrou à sertir :", "Ecrou à Sertir")
    Tuyauterie = InputBox("Entrez une date pour tuyauterie :", "Tuyauterie")
    InitCablage = InputBox("Entrez une date pour initiation câblage :", "Initiation Câblage")

dans la partie surligner, j'ai déclaré en type Date, mais j'ai un petit soucis, si je rentre une date par exemple 20/09/2013, cela fonctionne.

Le soucis c'est que si je ne rentre pas de date, il me met incompatibilité de type.

Faudrait-il mettre une condition ou autre ?

cdlt.

Salut Mattsly,

En regardant l'aide sur la fonction InputBox, il apparaît que la valeur renvoyée est de type "String".

De ton côté tu stockes ce résultat dans un type "String" mais de format "Date". Logiquement si tu rentres des données qui ne rentrent pas de ce format, ça doit boguer.

Si c'est bien ça le problème, déclare ces variables comme "String" et utilise après acquisition la fonction Format(expression, forme)

Je n'ai pas testé de mon côté. Redis moi si ça te convient.

cldt,

Uras

Bonjour,

Je viens de passer en format String. Comment j'intègre la fonction format dans le code ?

Cdlt.

Re,

Je viens de trouver.

Merci Uras.

Cdlt.