Cellule vide sous un tableau excel Résolu/Fermé

Question

Bonjour!

Mais question va vous paraitre simpliste mais ce n'est pas du tout évident pour moi...

J'ai un tableau qui s'étend de B5 à B13 (ou B5 contient le titre du tableau) et je voudrai pouvoir sélectionner la première cellule vide sous le tableau pour y insérer une nouvelle valeur. J'ai essayé d'y parvenir avec:

Range("B5").Activate
Range(Selection, Selection.End(xlDown)).Offset(-1, 0).Activate
Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")
    If Message = "" Then Exit Sub
    ActiveSheet.Unprotect
    Selection.Insert Shift:=xlDown
    ActiveCell.Offset = Message
    ActiveSheet.Protect

Mais ça n'a pas l'effet escompté puisque ça décale tout le tableau à la dernière cellule vide et que la valeur saisie se retrouve à la place du titre....

Je ne pense pas que cela soit très compliqué mais ça dépasse mes (faibles) compétences.
Si vous pensez pouvoir m'aide...

Merci d'avance de vos réponses!

Configuration: Windows XP / Firefox 3.6.3

Polux31 · Answer

Bonjour,

Pour avoir la dernière ligne de ton tableau

Dim DerLig As Long

Derlig = Range("B5").End(xlDown).Row + 1

Pour ton exemple :

Dim DerLig As Long

Derlig = Range("B5").End(xlDown).Row + 1

Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")
If Message = "" Then Exit Sub 

ActiveSheet.Unprotect 
Range("B" & DerLig).Value = Message
ActiveSheet.Protect 

Évite d'utiliser le .Select. Si tu mets :

Range("B21").Select
Selection.Value = "Toto"

C'est pareil à :

Range("B21").Value = "Toto"

Le .Select ralenti l'exécution et n'est pas nécessaire.

;o)

elbosador · Answer

J'aurais pensé à faire une boucle entre ta ligne 5 et 13 et si il trouve une cellule vide il te demande d'entrer tes informations.


For i = ActiveCell.Row To 13

'Si la case est vide
If Range("D" & i).Value = "" Then
'Alors demande des infos
Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")

'Si tu veux remplir qu'une case autrement enlève l'etiquette
GoTo 5

End If

i = i + 1

Next


5


Par sur que ca marche je suis aussi débutant ^^

Skeo · Answer

Merci beaucoup à tout les deux!!!

J'ai choisi la solution de polux31 parce que je ne suis pas bien rodé à l'utilisation des boucles ;) En tout cas ça marche très bien j'ai juste modifier les bordures pour que ça soit correct d'un point de vue visuel et c'est bon!!!

Private Sub CommandButton12_Click()
Dim DerLig As Long

    Unload UserForm1
    Sheets("Employés").Select
    
    DerLig = Range("employés_titre").End(xlDown).Row + 1
    Message = InputBox("Entrez un nouvel employé :", "Ajout d'un employé", "Nom de l'employé suivi de la première lettre du prénom")
    If Message = "" Then Exit Sub
    
    ActiveSheet.Unprotect
    Range("B" & DerLig).Value = Message
    
    Range("B" & DerLig).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    ActiveSheet.Protect
    
    Sheets("S0").Select
End Sub

Pour ce qui est des Select je suis d'accord et je sais bien qu'il ne faut pas vraiment faire comme ça mais c'est que je ne suis pas bien habitué. Connaitriez vous un tuto pour se perfectionner sur ce point?

Merci encore!

Skeo · Answer

En fait il y quand même un petit problème...   

Se tableau est utilisé dans une liste et les valeurs de la combobox sont attribuées par l'intermédiaire de RowSource dans les propriétés. Mais les valeurs que l'on rajoute ne font pas partie de la liste... Sauriez vous comment y remédier?   

En fait je cherche un code qui permette de désigner la liste par exemple: 

Private Sub ComboBox1_Change() 
    combobox1.listindex = de employé_titre.offset(-1,0) : dernier ligne non vide 
    salarie = ComboBox1.Value 
End Sub 


Merci

Skeo · Answer

Je viens d'essayé avec ce code  

Private Sub ComboBox1_Change() 
Dim der_case As Long 
Dim prem_case As Long 
    prem_case = Range("employés_titre").Offset(-1, 0) 
    case_case = Range("employés_titre").End(xlDown).Row 
    salarie = ComboBox1.Value 
End Sub 

Mais je ne peut pas (me semble-t-il) définir la plag source de cette manière: 

rowsource : B&prem_case:B&der_case

ça renvoit une erreur disant "valeur de propriété non valide"

Skeo · Answer

J'ai également essayé avec ça: 

Private Sub ComboBox1_Change() 
    Range("employés_titre").Offset(-1, 0).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    ActiveWorkbook.Names.Add Name:="employés", RefersToR1C1:= _ 
        "=Employés!R6C2:R14C2" 
    salarie = ComboBox1.Value 
End Sub 

Pas plus de succès ça ne renvoit pas d'erreur mais la liste n'en n'est pas plus mise à jour... (je précise que précédement la liste des employés était nommée "employés" (sans déconner? ;)  )  et que rowsource  avait comme "argument" Employés!employés...

Polux31 · Answer

Tu ajoutes ça dans l'éditeur de l'UserForm 

Private Sub UserForm_Initialize() 
Dim ws As Worksheet 
Dim lig As Long 

    Set ws = Worksheets(1)  'Mettre le numéro ou le nom de la feuille 
    lig = 6 
    ComboBox1.Clear

    With ws 
        While .Range("B" & lig).Value <> "" 
            ComboBox1.AddItem .Range("B" & lig).Value 
        lig = lig + 1 
        Wend 
    End With 
     
End Sub 


;o) 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»  
Nicolas Boileau

Cellule vide sous un tableau excel

7 réponses

Discussions similaires