Declaration des variables

Efgé

XLDnaute Barbatruc

• 16 Mai 2019

• #2

Bonjour

Pour trouvez les types de variables, il faut mettre un point d'arret sur le End Sub. Dans la fenêtre variable locale tu vois les types pris en compte.
Pour ton exemple, sans support, je dirais
Dim dDate as Date
Dim Temp as Double
Dim P as Long

Cordialement

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Mai 2019

• #3

Re
Sur le sujet : le classeur de notre requin, que je salut même s'il ne passe plus guère....

Utiliser des variables et des constantes

Description: Utilisation: VBA Niveau : moyen Intérêt : optimiser un projet en utilisant les variables et constantes Les types de variables Les types de données Les déclarations La portée et la durée des variables Les variables tableau Fil de...

www.excel-downloads.com

Cordialement

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 16 Mai 2019

• #4

MERCI de me répondre
Mais je tombe sur "une erreur de compatibilité de type" sur cette ligne

p = Application.Match(temp, Range("C4:N4"), 0)

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Mai 2019

• #5

Re
Il semblerai que Match renvoie un Double.

As tu regardé ta fenêtre variables locales ?

Cordialement

 

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 16 Mai 2019

• #6

Bonjour KTM,
Bonjour Efgé,

Dans le cas où la valeur cherchée n'existe pas dans la plage de recherche, Application.Match renvoie error.
Il faut donc conserver le type variant pour cette variable.

Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Mai 2019

• #7

Bonjour KTM, Efgé, le forum,

Ceci va mieux :

VB:

Sub Copy()
Dim dDate As String, temp As Long, p As Variant
dDate = CStr([B2])
If Not IsDate(dDate) Then Exit Sub
temp = CDbl(DateSerial(Year(dDate), Month(dDate), 1))
p = Application.Match(temp, [C4:N4], 0)
If IsNumeric(p) Then [B5].Offset(, p).Resize(10) = [A5:A14].Value
End Sub

Bonne journée.

 

Vote positif 0 Vote négatif

KTM

XLDnaute Impliqué

• 16 Mai 2019

• #8

job75 à dit:

Bonjour KTM, Efgé, le forum,

Ceci va mieux :

VB:

Sub Copy()
Dim dDate As String, temp As Long, p As Variant
dDate = CStr([B2])
If Not IsDate(dDate) Then Exit Sub
temp = CDbl(DateSerial(Year(dDate), Month(dDate), 1))
p = Application.Match(temp, [C4:N4], 0)
If IsNumeric(p) Then [B5].Offset(, p).Resize(10) = [A5:A14].Value
End Sub

Bonne journée.

Cliquez pour agrandir...

Super
job75 = Symbole de l'efficacité

 

Vote positif 0 Vote négatif