XL 2010 Sélectionner une ou plusieurs cellules après avoir coché un ou plusieurs checkbox

djedjeto · 4 Février 2020

Salut cher frère. je suis nouveau dans l'utilisation des codes vba. j'ai un problème mais j'arrive pas à trouver solution. si quelqu'un peut m'aider c'est un devoir à remettre. En fait, j'ai un userform qui comporte 36 checkbox nommé checkbox_1 à checkbox_36 et une base de données excel dont les entêtes font aussi 36 ; Je voudrais qu'à chaque fois que je coche un ou plusieurs checkbox de l'userform de façon aléatoire, les cellules correspondante (A1,B1.....AJ1) qui sont des entêtes soient sélectionnées suivant le nombre de checkbox coché. aidez moi . merci

Dudu2 · 7 Février 2020

Est-ce que tu parles de cette instruction en dépassement de capacité ?

VB:

DernièreLigne = ThisWorkbook.Worksheets(FeuilleTableau).Columns(Me.ComboBox1.ListIndex + 1).EntireColumn _
                             .Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Je ne comprends pas pourquoi.
Ça peut planter si la colonne est vide mais pas en dépassement de capacité. La colonne n'est jamais vide puisqu'il y a les titres. J'ai quand même protégé par principe.

D'autre part cette instruction qui était en commentaire n'était pas 100% correct car ne prenant pas en compte un éventuel décalage du tableau dans la feuille.

A moins que tu aies plus de 32767 valeurs en colonne. J'ai modifié les indices Integer en Long.

Dudu2 · 4 Février 2020

Yo Frère !
Que veux-tu dire par "une base de données excel dont les entêtes font aussi 36 "

Dudu2 · 4 Février 2020

Pourquoi n'interceptes-tu pas l'évènement _Click() sur chacune de tes CheckBoxes pour valoriser ta base de données selon la valeur True ou False de chaque CheckBox ?
C'est long certes, avec 36 CheckBoxes, mais avec quelques copier / coller ça va vite.

Sinon y a des solutions sophistiquées avec module de classe mais je ne sais pas bien faire. Peut-être un expert saura expliquer.

djedjeto · 4 Février 2020

Dudu2 à dit:
Yo Frère !
Que veux-tu dire par "une base de données excel dont les entêtes font aussi 36 "

je joint le fichier le fichier . les données sont saisies en excel avec la première ligne comme entête qui occupe aussi 36 CELLULES DE A1 à AJ1.

djedjeto · 4 Février 2020

Dudu2 à dit:
Pourquoi n'interceptes-tu pas l'évènement _Click() sur chacune de tes CheckBoxes pour valoriser ta base de données selon la valeur True ou False de chaque CheckBox ?
C'est long certes, avec 36 CheckBoxes, mais avec quelques copier / coller ça va vite.

Sinon y a des solutions sophistiquées avec module de classe mais je ne sais pas bien faire. Peut-être un expert saura expliquer.

merci frère. quand je le fais je n'arrive pas a selectionner plus d'une cellule. je veux que quand je coche n checkbox que les cellules correspondantes soient selectionnées contigue ou non

Dudu2 · 4 Février 2020

Dans le code du UserForm1:

VB:

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim Rng As Range
    Const FeuilleSélection = "Feuil1"
    
    For i = 1 To 36
        If Me.Controls("CheckBox_" & i).Value Then
            If Rng Is Nothing Then
                Set Rng = ThisWorkbook.Worksheets(FeuilleSélection).Cells(1, i)
            Else
                Set Rng = Union(Rng, ThisWorkbook.Worksheets(FeuilleSélection).Cells(1, i))
            End If
        End If
    Next i
    
    If Not Rng Is Nothing Then Rng.Select
    Unload UserForm1
End Sub

Dudu2 · 4 Février 2020

Il faut aussi dans un premier temps afficher le UserForm. Je l'ai fait dans le WorkBook_Open().

Dudu2 · 4 Février 2020

Je me demande si, lorsque tu dis "sélectionner les entêtes", c'est bien une sélection qu'il faut faire.
Moi je verrais plutôt un masquage des colonnes qui n'ont pas été cochées dans les CheckBoxes.
Le vocabulaire a son importance. A toi de confirmer... ou pas !

djedjeto · 4 Février 2020

Dudu2 à dit:

Dans le code du UserForm1:

VB:

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim Rng As Range
    Const FeuilleSélection = "Feuil1"
   
    For i = 1 To 36
        If Me.Controls("CheckBox_" & i).Value Then
            If Rng Is Nothing Then
                Set Rng = ThisWorkbook.Worksheets(FeuilleSélection).Cells(1, i)
            Else
                Set Rng = Union(Rng, ThisWorkbook.Worksheets(FeuilleSélection).Cells(1, i))
            End If
        End If
    Next i
   
    If Not Rng Is Nothing Then Rng.Select
    Unload UserForm1
End Sub

super Dudu2. c'est exactement ce que je cherchais. tu m'as sauvé bisou. et si je devrais exporter la selection en cours sur une nouvelle feuille ou dans un nouveau classeur

Dudu2 · 4 Février 2020

Ça dépend de ce que tu veux exporter.
Que les entêtes sélectionnées ou toutes les colonnes dont les entêtes ont été sélectionnées ?

Dudu2 · 4 Février 2020

Et 2ème question, exporter comment dans la feuille de destination ?
Les entêtes ou colonnes sélectionnée juxtaposées indépendamment des positions des entêtes ou colonnes d'origine ou en respectant les positions initiales ?

djedjeto · 4 Février 2020

Dudu2 à dit:
Et 2ème question, exporter comment dans la feuille de destination ?
Les entêtes ou colonnes sélectionnée juxtaposées indépendamment des positions des entêtes ou colonnes d'origine ou en respectant les positions initiales ?

oui . je voudrais exportez toutes les colonnes des entêtes sélectionnées qui seront juxtaposées dans la destination . mais sous c'est entête il y aura des données après. donc dans chaque colonne de la première à la dernière ligne contenant de valeur

Dudu2 · 4 Février 2020

Si le but de l'opération est de copier ces colonnes vers une nouvelle feuille, il n'est pas nécessaire de faire une sélection des colonnes.

Comment veux-tu choisir la destination ?
- Elle est déterminée avant la sélection ?
- On demande à l'utilisateur s'il veut créer une nouvelle feuille dans le classeur ?
- On demande à l'utilisateur s'il veut créer un nouveau classeur ?

djedjeto · 5 Février 2020

Dudu2 à dit:
Si le but de l'opération est de copier ces colonnes vers une nouvelle feuille, il n'est pas nécessaire de faire une sélection des colonnes.

Comment veux-tu choisir la destination ?
- Elle est déterminée avant la sélection ?
- On demande à l'utilisateur s'il veut créer une nouvelle feuille dans le classeur ?
- On demande à l'utilisateur s'il veut créer un nouveau classeur ?

merci Dudu2. oui comme c'est 36 COLONNES, j'aimerais qu'après avoir choisi ces colonnes en cochant les checkbox les copy et exporter vers un nouveau classeur en demandant bien s'il aimerais copier les cellules sélectionnées vers un nouveau classeur? si oui on les copier de façon juxtaposée. merci infiniment pour ton aide

Dudu2 · 5 Février 2020

Voilà...

XL 2010 Sélectionner une ou plusieurs cellules après avoir coché un ou plusieurs checkbox

djedjeto

XLDnaute Junior

Dudu2

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

djedjeto

XLDnaute Junior

Pièces jointes

djedjeto

XLDnaute Junior

Pièces jointes

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

djedjeto

XLDnaute Junior

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

djedjeto

XLDnaute Junior

Dudu2

XLDnaute Barbatruc

djedjeto

XLDnaute Junior

Dudu2

XLDnaute Barbatruc

Pièces jointes

Discussions similaires