Untitled

mail@pastecode.io avatar
unknown
vbscript
a month ago
1.2 kB
1
Indexable
Never
Sub ajouter_button()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim nextEmptyRow As Long
    
    Set ws = ThisWorkbook.Sheets("Nom_de_votre_feuille") ' Remplacez "Nom_de_votre_feuille" par le nom de votre feuille
    
    If Range("K8") = "" Or Range("K9") = "" Or Range("K10") = "" Or Range("K11") = "" Or Range("K12") = "" Then
        MsgBox ("Des informations manquantes")
    Else
        ' Recherche de la dernière ligne utilisée dans la colonne B
        lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
        
        ' Trouver la prochaine ligne vide dans la colonne B
        If lastRow < 10 Then
            nextEmptyRow = 10
        Else
            nextEmptyRow = lastRow + 1
        End If
        
        ' Ajouter les valeurs des cellules K9 à K12 au tableau commençant à la ligne nextEmptyRow
        ws.Cells(nextEmptyRow, "B").Value = Range("K9").Value
        ws.Cells(nextEmptyRow, "C").Value = Range("K10").Value
        ws.Cells(nextEmptyRow, "D").Value = Range("K11").Value
        ws.Cells(nextEmptyRow, "E").Value = Range("K12").Value
        
        MsgBox ("Valeurs ajoutées avec succès.")
    End If
End Sub
Leave a Comment