XL 2016 Bouttons VBA

[Sabrinaaaa]

Bonsoir,

Je souhaite créer plusieurs boutons sur une feuille permettant d’utiliser les données de 3 cellules et ainsi les reporter dans la feuille principale...comment faire?
Merci d’avance à ceux qui prendront le temps de me répondre

Sabrina

 

[Valtrase]

Bon en admettant que tu ai une feuille de base qui se nomme "Feuil1"
Si j 'ai bien compris tu veux que lors du clic sur ton bouton tu puisses créer une feuille avec comme nom le nom de la nouvelle ligne
dans un premier temps il faut connaitre la dernière ligne utilisée

Code à copier dans un module

Function SheetExist(stFeuille) As Boolean
    On Error Resume Next
    SheetExist = Not (ThisWorkbook.Sheets(stFeuille) Is Nothing)
End Function

Macro qui doit être appelée par ton bouton

Sub AjouterSheetWithName()

    'Et la de quoi mémoriser la dernière ligne
    Dim lngLastRow As Long

    'On recherche la dernière ligne de la feuille tu devra choisir ta colonne et ta feuille
    lngLastRow = Sheets("NomDeTaFeuille").Range("A65536").End(xlUp).Row

    'on vérifie si la feuille existe
    If Not SheetExist(CStr(lngLastRow)) Then
        
     Sheets.Add After:=Worksheets(Worksheets.Count)
        With ActiveSheet
        .Name = CStr(lngLastRow)
        .visible = xlSheetVisible
        
        End With
    Else
        MsgBox "Cette feuille existe et ne peu donc pas être créée", vbInformation, ThisWorkbook.Name

    End If

End Sub

en attente de tes réactions...

 

[ThomasR]

Hello,

petit conseil au passage

à la place de

lngLastRow = Sheets("NomDeTaFeuille").Range("A65536").End(xlUp).Row

il vaut mieux écrire

lngLastRow = Sheets("NomDeTaFeuille").cells(Application.Rows.Count,1).End(xlUp).Row

bonne nuit
Thomas