Discussion :

[edouard002]

Bonjour à tous,

Je rencontre une difficulté quand à l'élaboration d'une feuille de travail sous excel. Je pense que pour des informaticiens vous allez surrement m'aider à toruver la solution à mon problème.

Le voici,

Je dispose d'une base de donnée comme suit :

Référence A84:F98

Nom----Prénom-----Date-----Absence
... .... ... ....
... .... ... ....
... .... ... ....
... .... ... ....

(Nom, Prénom, Date sont des cellules saisie)

les cellules "absence" sont des formules = si la recherche nom et la recherche date est = à la nom et date (de la base) alors on met une croix "X"

En desous de cette base de donnée, j'ai intégrer dans deux cellules le NOM et le Date à taper

B103 : B 104

NOM-->"on tape le nom" C103
Date-->"on tape la date"C104


Mon objectif final étant de mettre une croix ("X") (dans la base de donnée)dans la case absent en respectant le critère nom et Date.

J'imagine qu'avec VB c'est possible, mais je cherche depuis 2 jours sur le net et c'est la première fois que je me permet de déranger une communauté pour mon usage.

En tout cas j'espère que j'ai été le plus clair possible


Merci d'avance à tous pour toutes vos contributions

Cordialement

PS : si je suis pas assez clair je peux joindre le fichier excel qui comporte des explications supplémentaire !!!

[casavba]

Voici une petite solution à adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub test()
Dim i as integer
 
With Worksheets("Feuil1")
 
    For i = 84 To 98
        If .Range("A" & i) & .Range("C" & i) = .Range("C103") & .Range("C104") Then .Range("D" & i) = "X"
    Next i
 
End With
 
 
 
End Sub