Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comparer 2 Zones de texte

Comparer 2 Zones de texte

22 réponses
Avatar
Philippe
Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
Daniel
Bonjour.
Essaie :
If CDate(TextBox1.Value) < CDate(TextBox2.Value) Then....
Cordialement.
Daniel
"Philippe" a écrit dans le message de
news:
Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe


Avatar
Philippe
Sous quel format dois-je rentrer la date dans les TextBox ?
Voilà mon code :
If CDate(OpenP.Value) < CDate(OpenR.Value) Then OpenE.Value = "En retard"

Philippe



Bonjour.
Essaie :
If CDate(TextBox1.Value) < CDate(TextBox2.Value) Then....
Cordialement.
Daniel
"Philippe" a écrit dans le message de
news:
Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe







Avatar
Daniel
12/6/5 par exemple.
Daniel
"Philippe" a écrit dans le message de
news:
Sous quel format dois-je rentrer la date dans les TextBox ?
Voilà mon code :
If CDate(OpenP.Value) < CDate(OpenR.Value) Then OpenE.Value = "En retard"

Philippe



Bonjour.
Essaie :
If CDate(TextBox1.Value) < CDate(TextBox2.Value) Then....
Cordialement.
Daniel
"Philippe" a écrit dans le message
de
news:
Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans
une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais
ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe









Avatar
Philippe
Désolé mais cela ne fonctionne pas.
Tu n'aurais pas un exemple.

Merci,

Philippe


12/6/5 par exemple.
Daniel
"Philippe" a écrit dans le message de
news:
Sous quel format dois-je rentrer la date dans les TextBox ?
Voilà mon code :
If CDate(OpenP.Value) < CDate(OpenR.Value) Then OpenE.Value = "En retard"

Philippe



Bonjour.
Essaie :
If CDate(TextBox1.Value) < CDate(TextBox2.Value) Then....
Cordialement.
Daniel
"Philippe" a écrit dans le message
de
news:
Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans
une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais
ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe














Avatar
michdenis
Bonjour Philippe,

Si tu débutais par définir ce que tu entends par zone de texte : des textbox dans la feuille de calcul, sur un formulaire, des zones
de texte issue de la barre de dessin ...


Salutations!


"Philippe" a écrit dans le message de news:

Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe
Avatar
Philippe
Bonjour,

Certes, ce sont des zones de texte provenant de la boîte à Outils
"Commandes". Je les ai placées sur une feuille de calcul.
En espérant que cela soit plus clair.

Merci,

Philippe


Bonjour Philippe,

Si tu débutais par définir ce que tu entends par zone de texte : des textbox dans la feuille de calcul, sur un formulaire, des zones
de texte issue de la barre de dessin ...


Salutations!


"Philippe" a écrit dans le message de news:

Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe





Avatar
michdenis
Bonjour Philippe,

Tu peux utiliser ceci en adapter les noms des textbox et de la feuille de calcul. Choisis l'événement que tu désires et appelle
cette macro que tu copieras dans un module standard :

'---------------------------------
Sub ComparerDate()

' TextBox1 = Date prévue : 12/06/05
'TextBox2 = Date réelle : 15/06/05

Dim A As Integer

With Worksheets("Feuil2")
If IsDate(.TextBox1) And IsDate(.TextBox2) Then
A = CDate(.TextBox1) - CDate(.TextBox2)
Select Case A
Case Is < 0
'Date prévue - Date réelle < 0
'qu'est-ce qui se passe ?

Case Is = 0
'Date prévue = Date réelle
'qu'est-ce qui se passe ?
Case Is > 0
'Date prévue - Date réelle > 0
'qu'est-ce qui se passe ?
End Select
Else
MsgBox "Au moins une des entrées est erronnée."
End If
End With

End Sub
'---------------------------------


Salutations!



"Philippe" a écrit dans le message de news:

Bonjour,

Certes, ce sont des zones de texte provenant de la boîte à Outils
"Commandes". Je les ai placées sur une feuille de calcul.
En espérant que cela soit plus clair.

Merci,

Philippe


Bonjour Philippe,

Si tu débutais par définir ce que tu entends par zone de texte : des textbox dans la feuille de calcul, sur un formulaire, des
zones
de texte issue de la barre de dessin ...


Salutations!


"Philippe" a écrit dans le message de news:

Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe





Avatar
Philippe

Private Sub OpenE_Change()
Dim A As Integer

With Worksheet("Avancement")
If IsDate(.OpenP) And IsDate(.OpenR) Then
A = CDate(.OpenP) - CDate(.OpenR)
Select Case A
Case Is < 0
OpenE.Value = "Retard"
Case Is = 0
OpenE.Value = "Jour J"
Case Is > 0
OpenE.Value = "En cours"
End Select
Else
MsgBox "Erreur de frappe !"
End If
End With
End Sub

Et ça ne fonctionne pas!

Aidez moi!!

Philippe


Bonjour Philippe,

Tu peux utiliser ceci en adapter les noms des textbox et de la feuille de calcul. Choisis l'événement que tu désires et appelle
cette macro que tu copieras dans un module standard :

'---------------------------------
Sub ComparerDate()

' TextBox1 = Date prévue : 12/06/05
'TextBox2 = Date réelle : 15/06/05

Dim A As Integer

With Worksheets("Feuil2")
If IsDate(.TextBox1) And IsDate(.TextBox2) Then
A = CDate(.TextBox1) - CDate(.TextBox2)
Select Case A
Case Is < 0
'Date prévue - Date réelle < 0
'qu'est-ce qui se passe ?

Case Is = 0
'Date prévue = Date réelle
'qu'est-ce qui se passe ?
Case Is > 0
'Date prévue - Date réelle > 0
'qu'est-ce qui se passe ?
End Select
Else
MsgBox "Au moins une des entrées est erronnée."
End If
End With

End Sub
'---------------------------------


Salutations!



"Philippe" a écrit dans le message de news:

Bonjour,

Certes, ce sont des zones de texte provenant de la boîte à Outils
"Commandes". Je les ai placées sur une feuille de calcul.
En espérant que cela soit plus clair.

Merci,

Philippe


Bonjour Philippe,

Si tu débutais par définir ce que tu entends par zone de texte : des textbox dans la feuille de calcul, sur un formulaire, des
zones
de texte issue de la barre de dessin ...


Salutations!


"Philippe" a écrit dans le message de news:

Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe










Avatar
michdenis
Ce n'est pas demain la veille que tu vas solutionner ton problème avec un tel commentaire !

| Et ça ne fonctionne pas!

Il est permis d'être plus explicite ....!


Salutations!




"Philippe" a écrit dans le message de news:


Private Sub OpenE_Change()
Dim A As Integer

With Worksheet("Avancement")
If IsDate(.OpenP) And IsDate(.OpenR) Then
A = CDate(.OpenP) - CDate(.OpenR)
Select Case A
Case Is < 0
OpenE.Value = "Retard"
Case Is = 0
OpenE.Value = "Jour J"
Case Is > 0
OpenE.Value = "En cours"
End Select
Else
MsgBox "Erreur de frappe !"
End If
End With
End Sub

Et ça ne fonctionne pas!

Aidez moi!!

Philippe


Bonjour Philippe,

Tu peux utiliser ceci en adapter les noms des textbox et de la feuille de calcul. Choisis l'événement que tu désires et appelle
cette macro que tu copieras dans un module standard :

'---------------------------------
Sub ComparerDate()

' TextBox1 = Date prévue : 12/06/05
'TextBox2 = Date réelle : 15/06/05

Dim A As Integer

With Worksheets("Feuil2")
If IsDate(.TextBox1) And IsDate(.TextBox2) Then
A = CDate(.TextBox1) - CDate(.TextBox2)
Select Case A
Case Is < 0
'Date prévue - Date réelle < 0
'qu'est-ce qui se passe ?

Case Is = 0
'Date prévue = Date réelle
'qu'est-ce qui se passe ?
Case Is > 0
'Date prévue - Date réelle > 0
'qu'est-ce qui se passe ?
End Select
Else
MsgBox "Au moins une des entrées est erronnée."
End If
End With

End Sub
'---------------------------------


Salutations!



"Philippe" a écrit dans le message de news:

Bonjour,

Certes, ce sont des zones de texte provenant de la boîte à Outils
"Commandes". Je les ai placées sur une feuille de calcul.
En espérant que cela soit plus clair.

Merci,

Philippe


Bonjour Philippe,

Si tu débutais par définir ce que tu entends par zone de texte : des textbox dans la feuille de calcul, sur un formulaire, des
zones
de texte issue de la barre de dessin ...


Salutations!


"Philippe" a écrit dans le message de news:

Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date dans une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les délais ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide d'une
comparaison.

Merci,

Philippe










Avatar
Daniel
Regarde le classeur à l'adresse :
http://cjoint.com/?iFr6yvg7uf
Daniel
"Philippe" a écrit dans le message de
news:
Désolé mais cela ne fonctionne pas.
Tu n'aurais pas un exemple.

Merci,

Philippe


12/6/5 par exemple.
Daniel
"Philippe" a écrit dans le message
de
news:
Sous quel format dois-je rentrer la date dans les TextBox ?
Voilà mon code :
If CDate(OpenP.Value) < CDate(OpenR.Value) Then OpenE.Value = "En
retard"

Philippe



Bonjour.
Essaie :
If CDate(TextBox1.Value) < CDate(TextBox2.Value) Then....
Cordialement.
Daniel
"Philippe" a écrit dans le
message
de
news:
Bonjour,

Est-il possible de comparer 2 zones de texte.
Voilà, j'entre une date dans une zone de texte et une autre date
dans
une
autre zone de texte.
J'aimerais donc pouvoir faire une comparaison pour voir si les
délais
ont
été respectés.

Illustration :
Date prévue : 12/06/05
Date réelle : 15/06/05
Et donc écrire dans une case le fait qu'il y a un retard à l'aide
d'une
comparaison.

Merci,

Philippe
















1 2 3