Discussion :

[Swiper]

Bonjour à tous,

Je me trouve devant un petit problème que j'aurais aimé exposé ici pour que vous me donniez votre avis. Alors voici le code :

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
If NbEchantillons <> LigneACopierFilter Then
For a = 0 To NbEchantillons - 1
 
Columns("J:J").Find(what:=NoEchantillon - a).Activate
Range(Selection, Selection.End(xlToRight)).Select
 
If Selection.Offset(1,0) = NoEchantillon - a Then
Range(Selection, Selection.End(xlDown)).Select
 
If Selection.Offset(1,0) = NoEchantillon - a Then
Range(Selection, Selection.End(xlDown)).Select
 
End If
 
Selection.Cut
Range("J:" & LigneACopierFilter).select
ActiveSheet.Paste
 
End If
 
Next
 
End If

Alors en fait, nous avons des echantillons dans lesquels il peut y avoir plusieurs groupes et machines, donc pour un meme echantillon il peut y avoir plusieurs lignes.

C'est précisement cela que je voudrais tester car la fonction Find ne trouve que la première occurence mais pas la dernière. Je voudrais à chaque fois agrandir la selection si le numéro de la case du dessous est le même que celui du dessus. Mais je me heurt à un problème : Lors de l'examen de la comparaison de la cellule du dessous si elle n'est pas renseigné j'ai une erreur : erreur de compatibilité ; Surement à cause du fait que je compare un numérique avec un string ""

[wilfried_42]

Bonjour Swipper

Si les lignes de l'echantillon se succedent, je te conseille de creer une plage nommée avec la formule suivante

exemple : dans une feuille quelconque que nous appellerons travail, nous mettons en A1 le code de l'echantillon


Disons que ta feuille des echantillons s'appelle Base : tes codes echantillons sont en colonne A

Nom de la plage : echantillon

Code :

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

=DECALER(Base!$A$1;EQUIV(travail!$A$1,Base!$A:$A,0)-1;;nb.si(Base!$A:$A;travail!$A$1))

ensuite dans ton code tu mets :

Code :

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

1
2
3
4
5
Dim echant as range
sheets("travail").range("A1").value = code_echantillon ' ta variable
set echant = range("echantillon")
nb_lig = echant.count ' te donne le nombre de lignes
adr = echant(1).address ' te donne l'adresse de la premiere occurence

bonne journée

[Swiper]

Merci pour ton aide qui m'a été très précieuse.