Incompatibilité de type

Version imprimable

Bonjour à tous
A partir d'une ligne et tant que la cellule de la colonne 1 = la valeur d'une autre cellule
Je voudrais copier certaines cellules de la ligne active
Mais j'ai un message "incompatibilité de type"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub ChercheDetail()
Worksheets("Détail").Range("A2:J2500").ClearContents
GSM = Worksheets("Détail").Range("C1").Value
Valeur_Cherchee = "Section 7"
 
Worksheets("Données").Activate
Set PlageDeRecherche = ActiveSheet.Columns(1)
i = PlageDeRecherche.Find(what:=Valeur_Cherchee, LookIn:=xlValues).Row
i = PlageDeRecherche.Find(what:=GSM, After:=ActiveCell, LookIn:=xlValues).Row
Application.ScreenUpdating = False
 
With Sheets("Données")
j = 3
Do While Cells(i, 1).Value = GSM
 
       Cells(i, 8).Copy Worksheets("Détail").Cells(j, 1)
        Cells(i, 9).Copy Worksheets("Détail").Cells(j, 2)
        j = j + 1
        i = i + 1
Loop
 
End With
 
Application.ScreenUpdating = True
 
Worksheets("Détail").Activate
 
Set PlageDeRecherche = Nothing
End Sub

Merci d'avance pour votre aide

14/02/2020, 12h22
Menhir

Citation:

Envoyé par fclus

Mais j'ai un message "incompatibilité de type"

Quelle ligne de code est désignée par le débugage ?
14/02/2020, 12h26
Patrice740

Bonjour,

Première règle : déclarer toutes les variables !
Pour en être sûr, commencer tous les modules par :
Option Explicit.
14/02/2020, 12h28
fclus
Je n'ai pas montré tout le code mais les variables sont évidemment déclarées
Code:

1 2 3 Option Explicit Dim i, j As Integer, PlageDeRecherche As Range Dim Valeur_Cherchee, GSM As String
Je reçois le popup à partir de la ligne 9
14/02/2020, 12h41
Patrice740

Mauvaises déclarations !
1. Il n'y a aucune raison de déclarer ces variables au niveau du module : elles devraient être déclarées au niveau de la procédure.
2. i et j devraient être déclarées Long (au lieu de Variant et Integer)
3. GSM devrait être Variant
4. Valeur_Cherchee devrait être String

EDIT : il est très important de typer correctement les variables, dans 100% des cas, l'incompatibilité de type est due à un mauvais typage.
14/02/2020, 12h50
fclus

J'ai modifié la déclaration des variables mais j'obtiens le même résultat
14/02/2020, 12h57
Patrice740

Vérifie la valeur de i
Vérifie la valeur de GSM et l'emplacement hasardeux de ActiveCell
14/02/2020, 13h22
fclus

GSM contient bien le numéro recherché
ActiveCell vaut 6,944444444444E-04 ???

Je ne comprends pas pourquoi mais ça fonctionne !

Je pense avoir un problème avec mon 2ème find (celui où je précise After:ActiveCell)
Je recherche d'abord Section 7
Puis à partir de cette ligne, je recherche un numéro de tel
Je dois récupérer le numéro de la ligne à partir de laquelle je vais boucler pour extraire les données dont j'ai besoin
14/02/2020, 13h37
Ben_L

Bonjour,

Votre ligne 9 est effectivement problématique : vous utilisez 'ActiveCell' sans avoir préalablement activé une cellule en particulier.
En conséquence, si vous sélectionnez une cellule qui n'est pas dans la colonne A et que vous lancez votre macro, vous obtenez une erreur.

Vous pouvez corriger le problème de plusieurs façon, parmi lesquelles :

Code:

i = PlageDeRecherche.Find(what:=GSM, After:=Worksheets("Données").Cells(i, 1), LookIn:=xlValues).Row

Cordialement
14/02/2020, 13h39
Menhir

Citation:

Envoyé par fclus

Je reçois le popup à partir de la ligne 9

La recherche renvoie vraisemblablement une valeur supérieure à 32 000 et dépasse donc la capacité d'un Integer.
Toute variable devant représenter un numéro de ligne doit être déclarée en Long.

Pour aller plus loin, selon moi le type Integer n'est plus vraiment utile étant donné la taille de la mémoire des ordinateurs actuels.
A une époque où la RAM se comptait en "ko", il pouvait être utile de gagner quelques octets. Aujourd'hui qu'elle se compte en Go, à moins d'avoir une variable tableau représentant quelques millions de valeurs, ça n'a pas grand intérêt de gratter quelques octets.
Perso, j'ai quasiment abandonné le Integer au profit du Long. Ca permet, entre autre, d'éviter des bugs comme celui-ci.
14/02/2020, 13h55
fclus

Merci à tous pour votre aide
Je découvre le VBA sous Excel

J'utilise habituellement Access

Problème résolu
Variables redéfinies
2ème find redéfini comme indiqué par Ben_L

Encore merci
14/02/2020, 14h01
Patrice740

Je ne parles pas de la valeur de ActiveCell mais de son emplacement HAZARDEUX !
Il ne faut pas utiliser ActiveCell, ni Activesheet, ni activer la feuille Données ou la feuille Détail, l'utilisation des objets actifs est une des principales sources d'erreur.
14/02/2020, 14h37
Patrice740
Citation:

Envoyé par fclus

2ème find redéfini comme indiqué par Ben_L

Notes que cette syntaxe est source de problème :

Code:

i = PlageDeRecherche.Find(what:=GSM, After:=Worksheets("Données").Cells(i, 1), LookIn:=xlValues).Row

En effet la méthode Find est susceptible d'échouer et dans ce cas il se produira une erreur !
Il est préférable de traiter cette éventualité :
Code:

1 2 3 4 5 6 Set cel = PlageDeRecherche.Find(what:=GSM, After:=Worksheets("Données").Cells(i, 1), LookIn:=xlValues) If Not cel Is Nothing Then i = cel.Row 'suite de la macro '... End If
17/02/2020, 10h00
fclus

Re Bonjour
J'ai réouvert ce post parce que, sur certains PC, je reçois un message "incompatibilité de type"
Pourquoi est-ce qu'en analysant les mêmes données, ça fonctionne sur certains PC et pas sur d'autres ?
On a tous la même version d'Excel, la même version Windows 10 et je n'ai ajouté aucune référence particulière

La seule différence, c'est que les collègues sont "Simple Utilisateur" et pas admin de leur poste
17/02/2020, 11h19
Menhir

Citation:

Envoyé par fclus

J'ai réouvert ce post parce que, sur certains PC, je reçois un message "incompatibilité de type"

Il faudrait indiquer quelle ligne de code est désignée par le débugage.

Citation:

Pourquoi est-ce qu'en analysant les mêmes données, ça fonctionne sur certains PC et pas sur d'autres ?

Sans doute parce que les données sont différentes, soit par leurs valeurs, soit par leur quantité.

Par exemple, "Incompatibilité de type" intervient régulièrement quand on déclare en type Integer une variable désignant un nombre de lignes. Si sur un poste il y a 30 000 lignes à traiter et sur un autre il y en a 35 000, alors une erreur se produira sur le second et pas sur le premier.
Ce n'est qu'une cause possible parmi de nombreuses autres.
17/02/2020, 15h43
fclus

Bonjour Menhir
Non, il s'agit bien des mêmes données !
Mes 2 routines analysent les données du 1er onglet
Si je les exécute sur mon PC, pas de problème
Si je les exécute sur une autre machine, Plantage !
17/02/2020, 17h02
Menhir

On fait un deuxième essai :

Citation:

Il faudrait indiquer quelle ligne de code est désignée par le débugage.
17/02/2020, 17h06
Patrice740

Citation:

Envoyé par fclus

J'ai réouvert ce post parce que, sur certains PC, je reçois un message "incompatibilité de type"

Normal, le fonctionnement code que tu avais mis en ligne est hasardeux, il dépend du contexte !

Poste la totalité du code que tu utilises actuellement et indique la ligne qui "plante".