Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
gérard
bonjour en cherchant un peu et ca marche
For I = 2 To Sheets("typesMission").Range("A1000").End(xlUp).Row If CboMission.Value = Sheets("typesMission").Range("A" & I).Value Then Txtdebut.Text = Sheets("typesMission").Range("A" & I).Offset(0, 2).Value Txtdebut.Value = Format(Txtdebut.Value, "hh:mm") Exit For End If Next I
merci encore
"gérard" a écrit dans le message de news: 4478c09f$0$6650$
Bonjour je voudrai appliquer la formule excel dans un userform
CboMission.value est le critere de recherche N_Mission est la matrice dans la feuille TypesMission 3 la colonne index Faux la valeur proche
de plus je voudrai que txtdebut.value ait le format
Txtdebut.Value=format(Txtdebut.Value, "hh:mm")
merci de votre aide
bonjour
en cherchant un peu et ca marche
For I = 2 To Sheets("typesMission").Range("A1000").End(xlUp).Row
If CboMission.Value = Sheets("typesMission").Range("A" & I).Value Then
Txtdebut.Text = Sheets("typesMission").Range("A" & I).Offset(0,
2).Value
Txtdebut.Value = Format(Txtdebut.Value, "hh:mm")
Exit For
End If
Next I
merci encore
"gérard" <gege@wanadoo.fr> a écrit dans le message de news:
4478c09f$0$6650$8fcfb975@news.wanadoo.fr...
Bonjour
je voudrai appliquer la formule excel dans un userform
For I = 2 To Sheets("typesMission").Range("A1000").End(xlUp).Row If CboMission.Value = Sheets("typesMission").Range("A" & I).Value Then Txtdebut.Text = Sheets("typesMission").Range("A" & I).Offset(0, 2).Value Txtdebut.Value = Format(Txtdebut.Value, "hh:mm") Exit For End If Next I
merci encore
"gérard" a écrit dans le message de news: 4478c09f$0$6650$
Bonjour je voudrai appliquer la formule excel dans un userform
