vba incompatibilité de type

[C@thy]

bonjour le forum,

j'ai le code suivant :

Sub position()
Dim A As Range, b As Double, c As Long
derlig = Range("C1048576").End(xlUp).Row
Set A = Sheets("Flux 154").Range("C9:C" & derlig)
b = CDbl(Date)
c = Application.Match(b, A, 0)
LigneFlux = A(c).Row
Range("C" & LigneFlux).Select
End Sub

tantôt ça marche bien, tantôt sur l'instruction Match j'ai une erreur incompatibilité de type.

Pourriez-vous me dire comment y remédier?

En vous remerciant😎,

C@thy

 

[Pierrot93]

Re : vba incompatibilité de type

Bonjour Cathy🙂

tantôt ça marche bien, tantôt sur l'instruction Match j'ai une erreur incompatibilité de type.
Pourriez-vous me dire comment y remédier?

sans doute que la valeur n'est pas trouvée.... déclare en "variant", et teste peut être ensuite si c'est un type "vberror" :

Dim c As Variant
If Not VarType(c) = vbError Then MsgBox c

bonne journée
@+

 

[Kersijus]

Re : vba incompatibilité de type

Bonjour,

Si Match renvoie une erreur (dans le cas où il ne trouve pas de correspondance), la variable c ne pourra pas la gérer. Il faut donc que c soit en variant pour que la macro fonctionne.

Est-ce cela*?

 

[C@thy]

Re : vba incompatibilité de type

hello Pierrot, kersijus

la date existe bien dans ma liste.

a priori mon erreur venait de là :
derlig = Sheets("Flux 154").Range("C1048576").End(xlUp).Row

mais j'ai tout de même mis c en variant et cela fonctionne.

Mille mercis,

Bibises

C@thy

 

[chris]

Re : vba incompatibilité de type

Bonjour

derlig n'est pas déclarée.

Sur 2003 la ligne 1048576 n'existe pas...

Une astuce, pour éviter le problème de numéro de la dernière ligne selon la version, est de se référer à cells.rows.count

 

[Pierrot93]

Re : vba incompatibilité de type

Re,
Bonjour Chris🙂, bien vu...

 

[job75]

Re : vba incompatibilité de type

Bonjour C@thy, Pierrot, Kersijus, chris 🙂

Ceci est peut-être suffisant et évite de créer des variables inutiles :

Sub position()
On Error Resume Next
Range("C" & Application.Match(CLng(Date), Sheets("Flux 154").[C:C], 0)).Select
End Sub

A+

 

[job75]

Re : vba incompatibilité de type

Re,

Mais si la sélection se fait dans la feuille "Flux 154" il faut d'abord l'activer :

Sub position()
With Sheets("Flux 154")
  .Activate
  On Error Resume Next
  .Range("C" & Application.Match(CLng(Date), .[C:C], 0)).Select
End With
End Sub

ou aussi :

Sub position()
On Error Resume Next
With Sheets("Flux 154")
  Application.Goto .Range("C" & Application.Match(CLng(Date), .[C:C], 0))
End With
End Sub

A+

 

[C@thy]

Re : vba incompatibilité de type

Coucou Gérard, je te remercie pour ta soluce très efficace (comme toujours). Je vais l'adopter.

Coucou Chris et merci. Oups! Désolée, je suis en 2010 sur ce coup-là (ça change selon les applis).

Bises

C@thy

 

[franciszen]

Recherche de doublons et incrémentation sur la valeur la plus haute

Bonjour, dans des listes j'ai X identifiants avec parfois malheureusement des doublons que je ne veux pas supprimer mais aux quel j'aimerais donner une valeur supériure à la la dernière entrée

SPA 03014 S01 001
SPA 03014 S01 002
SPA 03014 S01 003
SPA 03014 S01 004
SPA 03014 S01 005
SPA 03014 S01 006
SPA 03014 S01 007
SPA 03014 S01 007
SPA 03014 S01 009
SPA 03014 S01 010
SPA 03014 S01 011
SPA 03014 S01 012
SPA 03014 S01 013
SPA 03014 S01 014
SPA 03014 S01 015
SPA 03014 S01 016
SPA 03014 S01 017
SPA 03014 S01 018
SPA 03014 S01 019
SPA 03014 S01 020

ICI la valeur 007 est en doublon je souhaiterais lui donner la valeur 021

Merci d'avance pour votre aide
Très cordialement
Francis

 

[C@thy]

Re : vba incompatibilité de type

Bonjour franciszen et merci de te diriger vers la lecture de la charte et d'ouvrir un fil pour cette discussion.

C@thy