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

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

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

[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

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