Discussion :

[machintruc84]

Bonjour à tous et toutes,

Je suis débutant en VBA et je cherche à réaliser une macro qui doit sans doute être simple et/ou expliquée ailleurs mais je n'ai pas trouvé.

Voici donc ma question: Excel version XP

Je dispose d'un tableau avec des cellules que j'ai classées (grâce à une macro ) dans l'ordre alphabétique.
Je souhaiterais maintenant pourvoir sélectionner les lignes dont les cellules de la colonne "B" sont identiques (je les ai classé dans l'ordre alphabétique précédement donc elles se suivent). Mon problème est que je n'ai pas le nombre de lignes exact.

J'espère avoir été assez clair.
Merci d'avance pour votre réponse.

[oOVaveOo]

Bonjour,

Voici un code fait vite fait

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
Sub selectionplage()
 
Dim premierecellule As Integer
Dim dernierecellule As Integer
 
 
'1ère ligne où commence les données
i = 2
premiereligne = i
'tu définies que la dernière ligne à chercher commence à la ligne suivante
derniereligne = i + 1
 
'tu boucle tant que les 2 valeurs sont égales
Do While Range("B" & derniereligne) = Range("B" & premiereligne)
 
    'en incrémentant à chaque passage la ligne
    derniereligne = derniereligne + 1
 
Loop
 
'tu selectionne de la première cellule à la dernière trouvée -1
'sinon tu vas selectionner la première différente et non la dernière égale !
Range(Cells(premiereligne, 2), Cells(derniereligne - 1, 2)).Select
 
End Sub

Je pense qu'il y a des façons plus élégantes pour faire ce que tu cherche mais le principal, c'est que ça fonctionne

Tu peux modifier la ligne à partir de laquelle tu veux commencer la recherche:

Code :

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

i=2

[machintruc84]

Merci beaucoup oOVaveOo pour ta réponse rapide.

Ton code me permet en effet de sélection les premières cellules identiques de la colonne. C'est parfait.

J'ai malheureusement une remarque que j'ai du mal exprimer :
je voudrais que la sélection prenne tout la ligne.

ex:

ABCD
1234
a2cd
x3xx

J'aimerais que les 2 lignes soit sélectionnées:

1234
a2cd

Ton code m'a permis de sélectionner les deux "2" uniquement.

J'imagine que c'est la ligne

Code :

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

Range(Cells(premiereligne, 2), Cells(derniereligne - 1, 2)).Select

qu'il faut modifier mais je ne sais pas quoi changer.

Merci encore

[machintruc84]

en fait, je ne sais pas quoi mettre à la place du 2 dans

Code :

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

Range(Cells(premiereligne, 2), Cells(derniereligne - 1, 2)).Select

Si j'ai bien compris, c'est ce que je dois changer.
Je veux mettre "B:N" pour lui dire de prendre de la colonne B à N mais ça ne fonctionne pas.

[oOVaveOo]

Re salut,

N étant la 14ème colonne :

Code :

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

Range(Cells(premiereligne, 2), Cells(derniereligne - 1, 14)).Select

[machintruc84]

Génial!!

Merci beaucoup.
En plus, grâce à tes explications entre les lignes de code, je viens de gagner de l'XP en VBA (Do While Loop, Integer, range).

Comme prévu, je n'étais pas très malin 14 c'était pas sorcier.

En tout cas, c'est résolu et c'est exactement ce que je recherchais.
Merci