Selection spéciale

[Temjeh]

Bonjour à tous et merci

J'ai une sélection spéciale a mettre dans une loope dont les données son de col A à H.

En col A j'ai des chiffres

En début de code je trie col A pour grouper ces chiffres

Dans ma loope je cherche a sélectionné toutes les cells dont il y a les même valeurs en col A jusqu'a col H.

Ex
si j'ai des 1 en col A de A1 à A6 ...A1 à H6 select

Ouvre le classeur qui porte le nom de cell en col A ...
A1 à H6.select
Selection.copy
Sheets("Tous_NPV").Activate
Range("A65000").End(xlUp).select
Selection.PasteSpecial...
ActiveWindow.Close SaveChanges:=True

Loope suiv.
si j'ai des 3 en col A de A7 à A36 ...A7 à H36 select

J'espère que c'est assez clair

Toute ma loope est fait il me manque juste la facon de sélectionner par bloc ces cells.

Merci beaucoup

Temjeh

 

[porcinet82]

Re : Selection spéciale

Salut Temjeh,

A tester mais je dirais qu'en début de boucle tu mets un adresse1=cells(i,1).address(0,0) et en fin de boucle (avant de sortir de ton while) tu mets un adresse2=cells(i,8).adress(0,0).

Il te suffit ensuite de regrouper ces deux adresse avec un code du genre range(adresse1 & ":" & adresse2).select

@+

 

[Temjeh]

Re : Selection spéciale

Oui merci beaucoup bonne idée ... je voit le principe.

Je reviens si j'y arrive pas mais le guide est bon.


Merci infiniement

Temjeh

 

[Hervé]

Re : Selection spéciale

salut temjeh, re porcinet


une approche a travers ce code :

 Dim i As Integer
 Dim j As Integer
 
 
 Do
 i = i + 1
     For j = Range("a65536").End(xlUp).Row To i Step -1
         If Cells(j, 1) = Cells(i, 1) Then
             'ton traitement
             i = j
             Exit For
         End If
     Next j
 Loop Until Cells(i, 1) = ""

ton traitement doit s'opere ensuite sur range(cells(i,1),cells(j,6))

salut

 

[Temjeh]

Re : Selection spéciale

Merci aussi Hervé

C'est good avec cette loope do until

Je l'étudie et je reviens si prob

Temjeh