Userforme et application d une macro
Bonsoir,
Normalement j'ai déjà un feuille excel (avec des champs..) et remplie un peu. parmi ces champs j'ai le produit , la date de réception et la date de livraison prévisionnelle . et cette dernière dépend de genre de produit et du date de réception. j'ai créé une macro , donc une fois je clique sur le bouton le champs du date de livraison prévisionnelle se rempli automatiquement ( bien sur le produit et la date de livraison se sont déjà remplis ) . J'ai créé un userforme avec les champs que j'ai mais le problème que j'ai rencontré c'est que quand je clique sur le bouton rien ne s'affiche sur la date de livraison prévisionnelle !!!
Bonsoir, sans fichier d'exemple ou un bout de code, difficile de t'aider. Mais une simple formule pourrait faire l'affaire, non ?
voici le code de la macro concernant la date de livraison prévisionnelle :
Sub PROG()
Dim i As Integer
For i = 1 To Application.CountA(Range("A:A"))
If Cells(i + 1, 5) = "PC" Or Cells(i + 1, 5) = "IMP" Then
Cells(i + 1, 14) = Cells(i + 1, 4) + 14
ElseIf Cells(i + 1, 5) = "MESSAGERIE" Or Cells(i + 1, 5) = "NAVIGATION" Then
Cells(i + 1, 14) = Cells(i + 1, 4) + 2
End If
Next i
End Sub
Ton code fonctionne, je n'ai pas de souci.
Dans ta colonne N, tu pourrais utiliser la formule
=SI(OU(E2="PC";E2="IMP");D2+14;D2+2)ou éventuellement
=SI(OU(E2="PC";E2="IMP");D2+14;SI(OU(E2="NAVIGATION";E2="MESSAGERIE");D2+2))voici mon fichier excel ( je travaille seulement sur la feuille siege)
à l'aide de mon formulaire j'ai inséré la dernière ligne, c'est là où la macro ne fonctionne pas !
Cdt,
À priori, la date est sous forme de texte, il faut la transformer en date.
For i = 1 To Application.CountA(Range("A:A"))
If Cells(i + 1, 5) = "PC" Or Cells(i + 1, 5) = "IMP" Then
Cells(i + 1, 15) = CDate(Cells(i + 1, 4)) + 14
ElseIf Cells(i + 1, 5) = "MESSAGERIE" Or Cells(i + 1, 5) = "NAVIGATION" Then
Cells(i + 1, 15) = CDate(Cells(i + 1, 4)) + 2
End If
Next i
et ça fonctionne Merci beaucouup
Apparemment, c'est juste la dernière date qui pose problème. Si tu fais Ctrl + ", les dates apparaissent bien sous la forme du nombre de jours écoulés depuis le 01/01/1900, sauf cette dernière qui demeure 02/02/2014. En la revalidant, ça marche. Souci d'import ?