Discussion :

[fclus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

Quelle ligne de code est désignée par le débugage ?

[Patrice740]

Bonjour,

Première règle : déclarer toutes les variables !
Pour en être sûr, commencer tous les modules par :
Option Explicit.

[fclus]

Je n'ai pas montré tout le code mais les variables sont évidemment déclarées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[fclus]

J'ai modifié la déclaration des variables mais j'obtiens le même résultat

[Patrice740]

Vérifie la valeur de i
Vérifie la valeur de GSM et l'emplacement hasardeux de ActiveCell

[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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[Menhir]

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.

[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

[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.

[Patrice740]

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

Notes que cette syntaxe est source de problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Menhir]

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.

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.

[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 !

[Menhir]

On fait un deuxième essai :

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

[Patrice740]

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