Discussion :

[yann26]

Bonjour à tous

Je souhaiterais alimenter une combobox à partir de 2 sources differentes
la premiere vient d'un tableau a nombre de lignes variabes et la deuxième provient d'une autre feuille avec un nombre de ligne fixes
Pour les gérer indépendamment pas de problème, mais pour mettre les 2 listes à la suite dans la meme combobox, je bloque :

J'ai essayé ceci, mais forcement ca ne fonctionne pas :

Code :

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

1
2
ComboBox4.List = Sheets("feuill1").Range("B29:B" & 29 + nbtache).Value And Sheets("feuill2").Range("G14:G15").Value 
'nbtache etant ma variable

merci de votre aide


Une autre question pdt que je suis la, connaissez vous une FAQ qui permettrait de m'aider à verrouiller/deverouiller les cellules automatiquement par le biais de la maccros

Yann

[Theze]

Bonjour,

Une idée parmi d'autres, en passant par un tableau :

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
 
Private Sub UserForm_Initialize()
 
    Dim Tbl()
    Dim I As Integer
    Dim Nbtache As Integer
 
    Nbtache = 20
 
    ReDim Tbl(1 To Nbtache + 2)
 
    For I = 1 To Nbtache
 
        Tbl(I) = Sheets("feuill1").Range("B" & 28 + I)
 
    Next I
 
    Tbl(Nbtache + 1) = Sheets("feuill2").Range("G14")
    Tbl(Nbtache + 2) = Sheets("feuill2").Range("G15")
 
    ComboBox4.List = Tbl
 
End Sub

Une autre question pdt que je suis la, connaissez vous une FAQ qui permettrait de m'aider à verrouiller/deverouiller les cellules automatiquement par le biais de la macros

Code :

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

1
2
 
Range("A1").Locked = True 'ou False

il faut ensuite protéger ou déprotéger la feuille :

Code :

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

1
2
3
4
5
6
 
ActiveSheet.Unprotect "MonMotDePasse" 'dé-protection
 
'ton code...
 
ActiveSheet.Protect "MonMotDePasse" 'protection

Hervé.

[yann26]

super hervé, merci pour taon aide,
dsl pour le retard mais je n'est pas recu de mail me prevenant que j'avais une réponse.

une dernière question, pourquoi est on obliger de proteger ou deproteger la feuille via un mot de passe aprés un verouillage d'une cellule?
je penser simplment déverouiller les cellule au debut du programme et les verouiller en fin

[Theze]

Bonjour,

une dernière question, pourquoi est on obliger de proteger ou deproteger la feuille via un mot de passe aprés un verouillage d'une cellule?
je penser simplment déverouiller les cellule au debut du programme et les verouiller en fin

C'est le principe de fonctionnement d'Excel. Quand la feuille est protégée il laisse libre d'accès les cellules non verrouillées !
Maintenant, tu peux interdire l'accès à une ou plusieurs cellules sur l'évènement "SelectionChange" de la feuille. Un petit exemple, si tu sélectionne C3 dans la feuille tu sera automatiquement redirigé vers C4 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Address(0, 0) = "C3" Then
 
        Range("C4").Select
 
    End If
 
End Sub

Hervé.