Bonjour
Pour faire suite à mon message précédent
où j'ai reçu l'aide précieuse de jurassic pork.
Je reviens j'éssaye de mettre un clavier sur le jeu motus à partir d'un userform
Donc 26 boutons je viens d'essayer le premier mais j'aimerais si possible que quelqu'un essaye de le synthétisé:
Pour faire suite à mon message précédent
où j'ai reçu l'aide précieuse de jurassic pork.
Je reviens j'éssaye de mettre un clavier sur le jeu motus à partir d'un userform
Donc 26 boutons je viens d'essayer le premier mais j'aimerais si possible que quelqu'un essaye de le synthétisé:
[/CODE]- Private Sub CommandButton1_Click()
'Sub AjouterLettreA()
Dim ws As Worksheet
Dim ligneActive As Long
Dim colonneDerniere As Long
Dim colonneSuivante As Long
Set ws = ThisWorkbook.Sheets(1) ' Feuille active
ligneActive = ActiveCell.Row ' Ligne de la cellule active
' Trouver la dernière colonne non vide sur la ligne active
colonneDerniere = ws.Cells(ligneActive, ws.Columns.Count).End(xlToLeft).Column
' Déterminer la colonne suivante
colonneSuivante = colonneDerniere + 1
' Vérifier si la cellule précédente contient une valeur
If ws.Cells(ligneActive, colonneDerniere).Value <> "" And ws.Cells(ligneActive, colonneSuivante).Value = "" Then
ws.Cells(ligneActive, colonneSuivante).Value = "A" ' Ajouter la lettre A
ws.Cells(ligneActive, colonneSuivante).Select ' Déplacer la sélection
ElseIf ws.Cells(ligneActive, colonneDerniere).Value = "" Then
MsgBox "La cellule précédente est vide. Veuillez saisir une lettre avant.", vbExclamation
Else
MsgBox "La cellule suivante contient déjà une valeur.", vbExclamation
ws.Cells(ligneActive, colonneSuivante).Select ' Déplacer la sélection quand même
End If
End Sub
- Par avance merci
- Bien cordialement
- JML