Format date & utilisation dans formules

Coucou tous,

Je viens vers vous pour un petit soucis,

Je code un RechercheV qui prend en premier argument une date, seulement le programme fonctionne mais le rechercheV ne fonctionne pas avec ma formulation initiale (1), tandis que la (2) (passage par .value = worksheetfunction) fonctionne sans soucis.

J'ai l'impression que le programme comprend la date comme une division, et donc ne trouve évidemment pas le résultat dans la matrice.

Comme je suis curieux, j'aimerais savoir comment faire pour que la solution (1) fonctionne : j'ai tenté avec un CStr(valeur à garder en format date), mais ça ne fonctionne pas ...

Des idées ?

Merci d'avance

(1) :

wsS.Cells(4 + j, 1 + i).FormulaLocal = "=rechercheV(" & CStr(wsS.Cells(4 + j, 1)) & ";" & rgC.Address(external:=True) & ";" & col & ";0)"

(2) qui fonctionne, donc :

wsS.Cells(4 + j, 1 + i).Value = Application.WorksheetFunction.VLookup(wsS.Cells(4 + j, 1), rgC, col, 0)

PS : je cherche aussi à écrire des macros qui permettent

1/ d'effacer la fenêtre d'éxécution (la ctrl + G)

2/ de changer visuellement de références dans Excel (R1C1 à A1)

Ce serait utile de pouvoir placer des boutons là dessus, économie de temps

Bisous tous & merci d'avance pour votre aide !

Bonjour,

réponse très partiele (pour les entêtes)

Sub Colonne1ouA()  ' changer les entetes de colonnes A en 1 et inversement
Dim mpanel As Boolean
Dim R1 As Boolean
Application.ScreenUpdating = False
On Error Resume Next
Dim Place_Actuelle
R1 = IIf(Application.ReferenceStyle = xlR1C1, True, False)  ' xlR1C1 - colonne avec chiffre
If R1 Then
  Application.ReferenceStyle = xlA1  ' XlA1 colonne avec A-B-C
Else
  Application.ReferenceStyle = xlR1C1
End If
End Sub

et pour rechercheV:

wsS.Cells(4 + j, 1 + i).FormulaLocal = _

"=rechercheV(" & CDbl(wsS.Cells(4 + j, 1)) & ";" & rgC.Address(external:=True) & ";" & col & ";0)"

Top !!

Je vais à mon partiel mais je teste cela très rapidement avec plaisir !!

Niveau machine, qu'est ce qui fait que vba détecte non pas une date mais une string, ou un nombre ?

Merci encore

J'avais omis de répondre, mais je suis heureux : je ne recherchais pas mieux !!

La conversion marche à merveille, quant à mon soucis sur les dates, et pour le passage d'une référence à l'autre idem !!

Bravo, merci bien