VBA - Sélection d'une plage de valeurs

Bonjour,

Sur mon tableau je souhaiterai sélectionner une plage de valeurs sans copier les coordonnées de la cellule, ex: A1:A30

Voici un exemple de plage de données

R. 4222-1
R. 4222-2
R. 4222-3
Section 2 : Locaux à pollution non spécifique
R. 4222-4
R. 4222-5
R. 4222-6
R. 4222-7
R. 4222-8
R. 4222-9
Section 3 : Locaux à pollution spécifique
R. 4222-10
R. 4222-11
R. 4222-12
R. 4222-13
R. 4222-14
R. 4222-15
R. 4222-16
R. 4222-17
Section 4 : Pollution par les eaux usées
R. 4222-18
R. 4222-19
Section 5 : Contrôle et maintenance des installations
R. 4222-20
R. 4222-21
R. 4222-22
Section 6 : Travaux en espace confiné
R. 4222-23
R. 4222-24

Je souhaite sélectionner uniquement les R. 4222-1 à R. 4222-17 (on oubli donc le code : "R. 4222*)

Est-ce que vous avez des idées ? :s

Merci à vous.

Bonjour Sanctume,

Je ne suis pas sûr d'avoir bien compris le problème...

S'il s'agit de faire une sélection de plages non contigues, il est possible de le faire en appuyant sur la touche ctrl et en sélectionnant à la souris.

Cdlt,

Bonjour Sanctume, le forum,

Salut 3GB,

Un essai.....sur le même principe que ton post précédent....https://forum.excel-pratique.com/excel/vba-copie-de-donnees-d-une-feuille-a-une-autre-151679

Sub Bouton1_Cliquer()
 Dim tablo, tabloR(), k%, c

   tablo = Sheets("Feuil1").Range("A1").CurrentRegion

        k = 0
    For i = 1 To UBound(tablo, 1)
        c = Split(tablo(i, 1), "-")
     If c(UBound(c)) <= 17 Then
      ReDim Preserve tabloR(1 To 2, 1 To k + 1)
       tabloR(1, 1 + k) = tablo(i, 1)
       tabloR(2, 1 + k) = tablo(i, 2)
        k = k + 1
     End If
    Next i

    With Sheets("recopie")
     .Range("A1").CurrentRegion.ClearContents
      On Error Resume Next
     .Range("A1").Resize(UBound(tabloR, 2), 2) = Application.Transpose(tabloR)
     .Activate
    End With
End Sub
13classeur1.xlsm (19.34 Ko)

Cordialement,

Rechercher des sujets similaires à "vba selection plage valeurs"