Discussion :

[bogue]

Bonjour,

Je dispose de deux feuilles, "Tableau_intervention" et "Intervention".

Dans "Tableau_intervention", j'ai un bouton qui ouvre une UserForm. J'y ai mis une case à cocher pour savoir si les opérations ont été réalisées.
Cependant, je ne vois pas comment faire ça en VBA.
Quand on clique sur la case à cocher, cela doit remplir la colonne D de la feuille "Intervention". Pour cela, il faut trouver la ligne unique qui se compose de la date et du numéro de référence.

Voici mon fichier : http://w..............xlsm

Merci d'avance pour votre aide.

[SfJ5Rpw8]

... Pour cela, il faut trouver la ligne unique qui se compose de la date et du numéro de référence....

une feuille de calcul Excel est composé de lignes est de colonnes , sachant cela pourriez-vous rendre plus précis votre message au sujet de cette ligne Unique ...

[bogue]

Au temps pour moi, à l'aide du numéro de référence et de la date contenu dans le userform, il faudra trouver l'intersection de la colonne D ("FAIT") et y insérer "Oui" une fois la case à cocher cliquée.

[SfJ5Rpw8]

..., il faudra trouver l'intersection de la colonne D ("FAIT") ...

pour une intersection il faut au moins 2 éléments ..! quel est le second ?

( A voir aussi )

[bogue]

La ligne devra correspondre à ce qui est inscrit dans le TextBox "Date" et le TextBox "Réf." .

[SfJ5Rpw8]

La ligne devra correspondre à ce qui est inscrit dans le TextBox "Date" et le TextBox "Réf." .

tu nous as toujours pas dit ou l'on trouvais cette date et cette référence dans ta ligne !!
décrit nous le contenu de ta ligne !

[bastou93]

Bonjour,

La ligne devra correspondre à ce qui est inscrit dans le TextBox "Date" et le TextBox "Réf." .

imaginons que letter contient ton D que tu dis avoir trouvé:
et que la date et Ref sont dans les colonnes A et B

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
16
17
18
19
20
21
22
23
24
Private Sub test()
 
dim test as string
dim coldate as string
dim colref as string
dim lastrow as long 'derniere ligne qui contient des données
dim i as long
 
test = "D"
coldate = "A"
colref = "B"
 
with Sheets("Intervention")
lastrow = .range("A1").End(x1Down).Row
 
for i=1 to lastrow 'Parcour tes cellules
if .range(coldate  & k).Value = Me.Date.Value And .range(colref & k).Value = Me.Réf.Value then   'Test si la date ET la ref sont les meme que tes txtbox
     .range(test & k).value = "OUI"
end if
next i
 
end with
 
end sub

mais c'est pas très claire ce que tu veux donc je suis peut etre à l'ouest

EDIT: JE VIENS DE VOIR TON MESSAGE UN MIRACLE SA COLLE un peu près