Sélectionner une cellule dans un tableau

Bonjour,

Comment le code devrait se lancer

Voilà le fichier

Avant de compléter mon projet de la création mon UserForm2

je veux bien que les deux bouton "Ok" et "Annuler" dans la Feuil2  relative aux tableaux "Tableau1 & Tableu3" en meme temps doit être fonctionner comme la user forme dans la feuile 1

je veux dire:  UserForm1 est juste pour le Tableau1 dans la Feuile1  mais  UserForm2 et pour les deux tableaux 2 et 3 dans les deux feuils 2 et 3  en même temps

Alors quand je clique sur Ok  ou annuler  de la UserForm2 dans la Feuil2 il me afficher le message Suivant:

""

Erreur d’exécution ‘438’ :

Propriété ou méthode non gérée par cet objet

par contre dans la UserForme1 dans la feuil1 il fonctionne sans erreur

https://www.cjoint.com/c/LHliZs3sf2O

Bonjour,

Juste au passage, contrôler vos codes qui ne sont pas identiques, celui de la feuille 1 est correct:

oui, dans la Feuil2 je veux mentionner les deux Feuils  2  et 3   en même temps 

Bonjour Le Pingou,

Ca flotte ou ca chauffe?

Amind16dz

UF2 bouton OK, vous trouverez bien pour Annuler

Private Sub CommandButton3_Click() 'bouton "Ok"
    Worksheets("Feuil2").Activate
    Range("A1").Select 'sélectionne la cellule A1 dans le tableau ("Tableau2") de la ("Feuil2")
    Worksheets("Feuil3").Activate
    Range("A1").Select 'sélectionne la cellule A1 dans le tableau ("Tableau3") de la ("Feuil3")
    
    Unload Me 'vide et ferme l'UserForm
End Sub

oui merci il marche bien 

dit mois SVPL

j'ai utiliser le code suivant pour insertion une lignes dans la  dernière ligne des deux tableaux en même temps

Tableau2 dans la feuil2 et tableau3 dans la Feuil3,

Private Sub CommandButton3_Click()
Worksheets("Feuil2").ListObjects("Tableau2").ListRows.Add
Worksheets("Feuil3").ListObjects("Tableau3").ListRows.Add
End Sub

J'ai essayé d'utiliser le même code pour le même objectif mais cette fois par UserForm2

je voir que il fait l'insertion juste dans le Tableau2 dans la Feuil2, et une erreur s’affiche comme suite

Erreur d’execution 448
Argument nommé introvable

voila le fichier après modification

https://www.cjoint.com/c/LHlxeHlk6NZ

Bonjour,

Fichier modifier avec les instructions propres au tableau:https://www.cjoint.com/c/LHmgEnpV1Og

Supper , Merci il marche bien 

je vais essayer de faire la même chose pour la suppression de la derniers ligne ,   a défaut, je fait de retour a votre Help

Merci

Bonjour,

SVPL, avant de terminer ma création de la UserForm

j'ai un problème avec le code de la suppression d'une ligne par son numéro, ce code est supprimer la ligne entière du classeur, mais mois bien sur je veux supprimer juste la ligne des deux tableaux 

voila le code que j'ai utiliser:

 If OptionButton8 = -1 Then
     Dim rowNum As Integer
     On Error Resume Next
     rowNum = Application.InputBox(Prompt:="Enter Row Number where you want to Delete a row:", _
     Title:="Kutools for excel", Type:=1)
     Worksheets("Feuil2").Rows(rowNum & ":" & rowNum).Delete Shift:=xlDown
     Worksheets("Feuil3").Rows(rowNum & ":" & rowNum).Delete Shift:=xlDown
 End If

https://www.cjoint.com/c/LHmrGah2JXY

Merci beaucoup beaucoup

comme ça ma userform est marche comme il faut

je considéré ce sujet comme résolu