Modification d'une cellule avec case à cocher

**bogue** · 05/08/2011, 12h05

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** · 05/08/2011, 14h55

Envoyé par bogue

... 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** · 05/08/2011, 15h26

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** · 05/08/2011, 15h30

Envoyé par bogue

..., 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** · 05/08/2011, 15h36

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

**SfJ5Rpw8** · 05/08/2011, 15h38

Envoyé par bogue

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 !

**bogue** · 05/08/2011, 15h42

La date se trouve en colonne A et la réf se trouve en colonne B de la feuille Intervention.

**bastou93** · 05/08/2011, 15h47

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

**bogue** · 05/08/2011, 16h08

Merci, cependant j'ai un message d'erreur pour cette ligne :

Code :

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

lastrow = Sheets("Intervention").Range("A1").End(x1Down).Row

Le message est :
Erreur définie par l'application ou par l'objet :s

**bogue** · 05/08/2011, 16h31

C'était à cause de x1down, il fallait mettre xldown.

Par contre, j'ai bien mis mes noms de Textbox, cependant, le changement de valeur par "Oui" ne fonctionne pas. Il ne rentre pas dans le If apparemment.

Je met le code dans un CheckBox_Click(), ça peut provenir de là ?