Discussion :

[benjy777]

Bonjour,

Voilà mon problème : Je veux faire correspondre 3 éléments de 3 colonnes d'une feuille vba avec 3 textboxs , pour les deux premières qui sont des chaines de caractéres ça fonctionne parfaitement , en revanche dès que j'ajoute la dernière qui est de type entier ça ne fonctionne plus. Voici mon code résumé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim a AS string
dim b AS string
dim c 
 
Dim trouve As Boolean
trouve = false

la je crée une boucle puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 a = "B" & j 
    b = "C" & j 
    c = "F" & j 
 
 
    If UCase(TextBox1.Value) = Range(a).Value And UCase(TextBox2.Value) = Range(b).Value And TextBox3.Value = Range(c).Value Then
        trouve = True

Ca ne trouve donc pas la correspondance entre le Range "c" et la textbox3 , je rappelle que ce sont des variables de type entier (une année en l’occurrence) le problème vient de là mais pourquoi ?

Merci

[Theze]

Bonjour,

dès que j'ajoute la dernière qui est de type entier ça ne fonctionne plus

A moins que tu sois sûr que ta date ne dépasse pas le 16/09/1989, elle doit être de type Long sinon, plantage (Integer max = 35667)
Testes de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If UCase(TextBox1.Value) = UCase(Range(a).Value) _
    And UCase(TextBox2.Value) = UCase(Range(b).Value) _
    And CLng(TextBox3.Value) = CLng(Range(c).Value) Then
 
    trouve = True

[benjy777]

Oui c'est bien ca merci beaucoup . Ce que je ne comprends pas c'est que les dates ce sont juste des années donc forcément <2000 et Integer permet d'avoir des Nombres entiers de -32'768 à 32'767.

[joe.levrai]

Bonjour,

une année, c'est une année, on est d'accord !

mais une date, c'est jour-mois-année, ce n'est pas la même chose

la date est stockée sous la forme d'un nombre, un "numéro de série" équivalant aux nombres de jours écoulés depuis le 31/12/1989 pour le calendrier 1900 (calendrier par défaut sur Excel Windows)

donc, nous avons dépassé l'integer pour une date depuis le 16 Septembre 1989 environ !

à lire impérativement si tu veux maîtriser : http://didier-gonard.developpez.com/...-excel-et-vba/

[unparia]

Bonjour
Je souhaite éviter toute confusion entre "année" (millésime) et autre chose.
Quelles données as-tu exactement en colonne F et quel format a été donné à ces cellules ? (évite de dire "année" si tu veux dire "millésime")

[Theze]

Bonjour,

Joe, tu veux dire 31/12/1900 au lieu de 31/12/1989 ? Induis en erreur par "16 Septembre 1989"

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Debug.Print Compteur(3)
End Sub
Function Compteur(Jmax As Integer) As Integer
For I = 0 To Jmax
     If DateDiff("d", Date + I, Date + 3) = False Then Compteur = I: Exit For
Next
End Function

[benjy777]

Merci