vba incompatibilité de type

Pierrot93

XLDnaute Barbatruc

• 14 Août 2013

• #2

Re : vba incompatibilité de type

Bonjour Cathy🙂

Code:

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" :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

K

Kersijus

XLDnaute Junior

• 14 Août 2013

• #3

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*?

 

Dernière édition: 14 Août 2013

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 14 Août 2013

• #4

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 14 Août 2013

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Août 2013

• #6

Re : vba incompatibilité de type

Re,
Bonjour Chris🙂, bien vu...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2013

• #7

Re : vba incompatibilité de type

Bonjour C@thy, Pierrot, Kersijus, chris 🙂

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

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2013

• #8

Re : vba incompatibilité de type

Re,

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

Code:

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 :

Code:

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+

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 14 Août 2013

• #9

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

 

Vote positif 0 Vote négatif

F

franciszen

XLDnaute Nouveau

• 14 Août 2013

• #10

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 14 Août 2013

• #11

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

 

Vote positif 0 Vote négatif