Discussion :

[leonfort]

Bonjour
question trop facile pour certains, mais je ne sais pas comment résoudre une simple affection avec incrément de l'indic de de la colonne
Voici ma table excel
Association Dvalid Dvet365
AS Test 05/03/2023 05/03/2023
AS Test 22/10/2022 08/11/2023
AS Test 05/03/2022 01/10/2023
A.S.G.E 08/11/2022 02/07/2023
A.S.G.E 01/10/2022 08/03/2023
fin table

Et ma macro VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub validité()
   Dim Association As Range
   Set Association = Worksheets("Feuil1").Range("A1:A10")
   Dim cell As Excel.Range
   For Each cell In Association.Range("A1:A20 ")
      If cell.Value = "AS Test" Then
'     c'est ici que je voudrais affecter la valeur de dvet365 à dvalid
      dvalid = dvet365
      End If
   Next cell
End Sub

une simple affectation mais dans vba ... je n'y arrive pas

Merci pour vos conseils

[BENNASR]

bonjour
tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub validité()
Dim F As Worksheet
Dim Association As Range
Set F = Sheets("Feuil1")
Set Association = F.Range("A1:A10")
Dim cell As Range
For Each cell In Association
If cell.Value = "AS Test" Then
F.Cells(cell.Row, 2) = CDate(F.Cells(cell.Row, 3))
' c'est ici que je voudrais affecter la valeur de dvet365 à dvalid
End If
Next cell
End Sub

[leonfort]

merci beaucoup, ça marche