VBA - Sélectioner une plage de cellules

Résolu/Fermé

zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 26 mai 2011 à 17:22
zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 - 26 mai 2011 à 20:46

Bonjour,

Comme l'indique le titre de ce post, je souhaite sélectionner une plage de données à partir d'un UserForm Excel.

J'ai essayé avec un RefEdit mais le problème et que la valeur renvoyée est : Données!$C$2:$C$11. Or pour la suite de ma macro j'ai uniquement besoins du numéro de la première ligne et le numéro de la dernière ligne.

J'ai fait des recherches sur Google mais je n'ai pas trouvé d'instruction permettant d'extraire ces numéros de lignes.

Merci beaucoup!!

A voir également:

Manipuler un range ou plage de données en vba
Fuite données maif - Guide
Supprimer les données de navigation - Guide
Out of range - Forum Ecran
Ecran noir avec 'out of range" sous windows 10 - Forum Ecran
Incompatibilité de type vba ✓ - Forum Programmation

6 réponses

Réponse 1 / 6

ed555 Messages postés 61 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 26 octobre 2018
26 mai 2011 à 17:42

salut,

je pense pouvoir t'aider mais je ne saisis pas trop la partie qui pose problème :

comment est-ce-que tu détermines la plage à sélectionner si tu ne connais pas la première ligne et la dernière ligne de cette plage ?

précise un peu s'il te plaît

Réponse 2 / 6

zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 22
26 mai 2011 à 17:45

RefEdit est un "bouton" qui s'intègre à un UserForm et qui permet de sélectionner directement dans une feuille de calcul une plage de donnée. Et en gros :

UserForm1.RefEdit1.Value = "Données!$C$2:$C$11"

Peut être qu'il y a un autre moyen de sélectionner une plage de données directement mais je ne vois que celle là.

Réponse 3 / 6

ed555 Messages postés 61 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 26 octobre 2018
26 mai 2011 à 18:13

au temps pour moi, je ne connaissais pas. je viens de tester et de découvrir à quoi ça sert !

ceci dit j'ai cherché un peu et bidouillé ça :

'tu récupères ce qu'il y a dans ton RefEdit
MaChaine = UserForm1.RefEdit1.Value

Tableau = Split(MaChaine, "!")
Sheets(1).Range("A1").Value = MaChaine
'première partie du split
Sheets(1).Range("A2").Value = Tableau(0)

'deuxième partie du split
Sheets(1).Range("A3").Value = Tableau(1)

'récupérer les adresses
Tableau2 = Split(Tableau(1), ":")

'1ere cellule
Sheets(1).Range("A4").Value = Tableau2(0)
'derniere cellule
Sheets(1).Range("A4").Value = Tableau2(1)

Réponse 4 / 6

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
26 mai 2011 à 18:37

bonjour

il faut déclencher par un bouton (ou autre) dans l'usf

Private Sub CommandButton1_Click()
    Dim zone As String
        zone = RefEdit1.Value
     With Range(zone)
          MsgBox "ligne haute: " & .Row
          MsgBox "ligne basse: " & .Row + .Rows.Count - 1
     End With

à adapter

ed555 Messages postés 61 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 26 octobre 2018
26 mai 2011 à 19:48

ah oui, c'est beaucoup plus élégant que ma solution bricolée !

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 22
26 mai 2011 à 19:42

C'est exactement ça, merci Michel! Désolé ed555, j'ai pas compris comment tu procédés et c'est un peu long à mon goût.

Du coup j'ai voulu pousser un peut plus et extraire la colonne. Grâce à :

     With Range(plage)
          Pligne = .Row
          Dligne = .Row + .Rows.Count - 1
          colonne = .Column
     End With

Le souci c'est que pour la colonne C par exemple, il me renvoi 3. Comment faire pour la convertir en caractère?

ed555 Messages postés 61 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 26 octobre 2018
26 mai 2011 à 19:55

tu as eu raison de prendre la solution de michel_m, elle est meilleure !

pour ce qui est de convertir le numéro de colonne en lettre j'ai bien une idée mais pas très élégante... en gros tu actives une cellule de la colonne avec cells(1,n_colonne).Activate puis :

'tu récupères l'adresse
n = ActiveCell.Address
'dans l'adresse tu récupères seulement la lettre de la colonne
lettre_colonne = Right(Left(n, 2), 1)

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
26 mai 2011 à 20:36

Généralement en VBA on bosse avec la valeur numérique, plus facile (boucle par ex) à manipuler et moins vorace en RAM qu'un string

par exemple cells(2,3) est équivalent à range("C2")

mais on peutx bricoler une fonction pour retrouver la lettre

ci dessous mon bidouillage pour 2003 (colonne maxi 256 = IV) à améliorer

Function car_col(num As Integer) As String
Dim serie As Byte
Select Case num
    Case Is = 0
        car_col = "#########"
    Case Is < 27
        car_col = Chr(64 + num)
    Case Else
        serie = Int((num - 26) / 27) + 1
        car_col = Chr(64 + serie) & Chr(64 + num - 26 * serie)
End Select

End Function

mais ce n'est pas ce que j'ai fait de mieux et son utilité m'a rarement convaincu

Réponse 6 / 6

zivodul8 Messages postés 229 Date d'inscription jeudi 19 novembre 2009 Statut Membre Dernière intervention 19 mai 2015 22
26 mai 2011 à 20:46

1 partout!!

J'y avais pensé aussi mais j'attendais de voir s'il y avait mieux mais finalement je vais prendre la solution proposer par ed555. J'ai toujours travailler avec Range("A1").Value (une bêtise apparemment), donc je me vois mal modifier toute ma macro

Merci à vous deux donc et bonne continuation =)

Discussions similaires

input signal out of range

Bonjour, j'ai eu un nouvel ecran plat BENQ losque je le branche un signal s'affiche "input signal out of range " puis il se met en veille . Je ne peut pas reprendre mes anciens cordons car ils ne sont pas demontables de mon ancien ecran. Mon ordinateur date de 2000 est ce compatible? Je l'ai essayer sur un autre ordinateur , il s'est allume tout de suite. Merci de bien vouloir m'aider.

VBA : Range avec références variables..

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine

Erreur la zone de données passée à un appel système est insu

Bonjour, Apres installation d'un my sql 2017 sur Windows 11 j'ai cette erreur sur plusieurs logiciels : " Erreur la zone de données passée à un appel système est insuffisante " Avez vous une solution pour résoudre ce soucis ?

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

VBA Excel : sélection d'une plage variable

Bonjour tout le monde,

Je dois sélectionner une plage de cellules en fonction d'une variable i, qui représente le numéro de la ligne voulue. Suite à des recherches sur ccm.net et d'autres forums, j'ai trouvé le code suivant :

Dim MaPlage As Range MaPlage = Range("A" & i & ":L" & i)

Je suis sur Excel 2003 et qqc cloche : VBA me renvoie "erreur d'éxecution 91 : variable objet ou variable de bloc With non définie". Vraiment, je ne comprends pas. Quelqu'un a une idée ?

Merci d'avance,
Pyanitsa.

Configuration: Windows XP / Firefox 3.6.3