Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Déplacer Bouton de Commande VBA

Deniro01

XLDnaute Junior
Bonjour,

Si je mets le bouton de commande (Ajouter) de la 2ème feuille de calcul (Livres), dans la 1ère feuille (Bibliothèque), comment faut-il faire pour que les données s'inscrivent toujours dans la 2ème feuille.
Ci-joint le fichier test, pour celui qui voudra bien m'aider. Pour l'instant les données s'inscrivent dans la 1ère feuille et pas dans la 2ème comme prévu.

Merci

Cordialement Denis
 

Minick

XLDnaute Impliqué
Re : Déplacer Bouton de Commande VBA

Salut,

Il suffit d'ajouter le nom de la feuille dans cette ligne
Code:
[B][COLOR=Red]sheets("Livres").[/COLOR][/B]Range("B65536").End(xlUp).Offset(1, -1).Select
Ca devrait aller.
 

mromain

XLDnaute Barbatruc
Re : Déplacer Bouton de Commande VBA

bonjour Deniro01,

voici un essai en modifiant le code du bouton "Valider" de ton formulaire :
Code:
Private Sub CmdValider_Click()
If Trim(TxtTitre) = "" Then
    MsgBox "Entrez le titre du Livre!", vbOKOnly, "Attention"
    Me.TxtTitre.SetFocus
    Exit Sub
End If
'
If Trim(TxtAuteur) = "" Then
    MsgBox "Entrez l'auteur du Livre!", vbOKOnly, "Attention"
    Me.TxtAuteur.SetFocus
    Exit Sub
End If
'
If Trim(CmbCollection) = "" Then
    MsgBox "Entrez la collection!", vbOKOnly, "Attention"
    Me.CmbCollection.SetFocus
    Exit Sub
End If
'
If Trim(CmbEdition) = "" Then
    MsgBox "Entrez l'édition!", vbOKOnly, "Attention"
      Me.CmbEdition.SetFocus
    Exit Sub
End If
'
If Trim(CmbCatégorie) = "" Then
    MsgBox "Entrez la catégorie!", vbOKOnly, "Attention"
      Me.CmbCatégorie.SetFocus
    Exit Sub
End If
'
If Trim(TxtDateAchat) = "" Then
    MsgBox "Entrez la date d'achat!", vbOKOnly, "Attention"
      Me.TxtDateAchat.SetFocus
    Exit Sub
End If
'
If Trim(TxtPrixAchat) = "" Then
    MsgBox "Entrez le prix d'achat!", vbOKOnly, "Attention"
      Me.TxtPrixAchat.SetFocus
    Exit Sub
End If
'--------------------------------------------------------------

On Error Resume Next
[B]With [COLOR=Red]Sheets("Livres").[/COLOR]Range("B65536").End(xlUp).Offset(1, -1)
    .ShapeRange.LockAspectRatio = msoTrue
    .ShapeRange.Height = 70[/B]
    .RowHeight = 14
    .EntireRow.VerticalAlignment = xlCenter
    .Offset(0, 0).Value = Application.Max(Worksheets("Livres").Range("A3:A65536")) + 1
    .Offset(0, 1).Value = TxtTitre
    .Offset(0, 2).Value = TxtAuteur
    .Offset(0, 3).Value = CmbCollection
    .Offset(0, 4).Value = CmbCatégorie
    .Offset(0, 5).Value = CmbEdition
     If Trim(TxtDateAchat) <> "" Then .Offset(0, 6).Value = DateValue(TxtDateAchat)
     If TxtPrixAchat <> "" Then .Offset(0, 7).Value = CDbl(TxtPrixAchat.Value)
End With
Unload FrmLivres
End Sub

a+
 

Deniro01

XLDnaute Junior
Re : Déplacer Bouton de Commande VBA

Bonjour à tous les deux,

Après quelques essais, ca marche. Je vous remercie beaucoup pour votre réponse qui, il se trouve, était la même. Donc pas de problème, il ne me reste plus qu'à travailler.

Encore merci,

Cordialement Denis
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…