XL 2019 Use forme a modifier

[berru76]

Bonjour
J'ai un Use forme utile qui fonctionnait dans mes petits programmes club
La structure est la même
Mais dans le nouveau projet la présentation se fait en tableaux donc cela ne s'affiche plus au bon endroit
Si vous voyer la solution
ci-joint un exemple
Merci de votre aide

 

[Nain porte quoi]

Hello,

quand on utilise des tableaux (structurées, bien que MS n'utilise plus ce terme) il ne faut pas ajouter de lignes vides. En clair, réduisez votre tableau à sa partie congrues et laissez faire le reste

Ceci dit, la macro n'est plus vraiment adapté aux TS, je pense que quelques autres contributeurs pourront vous arranger ça

 

[sylvanu]

Bonjour Berru, Nain Porte Quoi,
Dans un TDS, comme votre Tabel1, on ne peut accéder à la dernière ligne avec L = .Range("C" & Rows.Count).End(xlUp).Row + 1 car pour XL un TDS est un objet.
Cette ligne de code vous donnera la première ligne vide après votre TDS. C'est pour ça que vos entrées se mettent à la fin du tableau.

il faut passer par l'examen du TDS lui même.
En PJ j'ai remplacé :

L = .Range("C" & Rows.Count).End(xlUp).Row + 1
par
L = 1 + Application.CountIf([Tabel1[Noms]], "*")

.Range("C" & L) = Me.ComboBox1.Value
par
[Tabel1[Noms]].Item(L) = Me.ComboBox1.Value

.Range("D" & L) = "Payé"
par
[Tabel1[Payé]].Item(L) = "Payé"

.Range("D" & L) = "Non"
par
[Tabel1[Payé]].Item(L) = "Non"

 

[berru76]

Bonjour Berru, Nain Porte Quoi,
Dans un TDS, comme votre Tabel1, on ne peut accéder à la dernière ligne avec L = .Range("C" & Rows.Count).End(xlUp).Row + 1 car pour XL un TDS est un objet.
Cette ligne de code vous donnera la première ligne vide après votre TDS. C'est pour ça que vos entrées se mettent à la fin du tableau.

il faut passer par l'examen du TDS lui même.
En PJ j'ai remplacé :

L = .Range("C" & Rows.Count).End(xlUp).Row + 1
par
L = 1 + Application.CountIf([Tabel1[Noms]], "*")

.Range("C" & L) = Me.ComboBox1.Value
par
[Tabel1[Noms]].Item(L) = Me.ComboBox1.Value

.Range("D" & L) = "Payé"
par
[Tabel1[Payé]].Item(L) = "Payé"

.Range("D" & L) = "Non"
par
[Tabel1[Payé]].Item(L) = "Non"

Merci a vous
Fonctionne très bien

 

[cathodique]

Bonsoir,

Je n'ai gardé qu'un seul UserForm pour les 2 actions.
J'ai transformé tes plages en tableaux structurés.

Est-ce que j'ai bien compris ton problème?!

Ton fichier en retour.

edit: Pas vu. Bonsoir @sylvanu , @Nain porte quoi 😉

 

[berru76]

Bonjour
J'ai testé fonctionne bien
Sauf lorsque l'on quitte l'USF il faut cliquer dans une cellule
Je me suis permis de modifier un peu car la table 2 n'était plus utile

Merci a vous

 

[sylvanu]

Re,
En fait c'est la dernière cellule écrite en colonne C qui est sélectionnée.
Mais si vous voulez sélectionner une cellule précise en sortie d' USF, faites par ex :

Private Sub CommandButton2_Click()
  Unload Me
  Range("F5").Select
End Sub

Remplacez le "F5" pa ce que vous voulez.
et vous pouvez rajoutez dans l'usf :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then   ' Fermeture usf qui vient de la croix
    Cancel = True
  End If
End Sub

pour empêcher la fermeture de l'usf par la croix mais uniquement par le bouton "Quitter"

 

[cathodique]

Bonjour
J'ai testé fonctionne bien
Sauf lorsque l'on quitte l'USF il faut cliquer dans une cellule
Je me suis permis de modifier un peu car la table 2 n'était plus utile

Merci a vous

Bonjour,

La finalité ne correspond pas exactement à la demande initiale.
Tu avais mis 2 plages de transferts. Puis tu nous dis que la seconde plage est inutile.
Mais bon...

 

[sylvanu]

Salut Cathodique,

Tu avais mis 2 plages de transferts. Puis tu nous dis que la seconde plage est inutile.

Je pense que c'était juste pour montrer que sa macro marchait sur une plage ( à droite ) mais pas sur un TDS ( à gauche)
Or, il voulait une macro sur TDS.

 

[berru76]

Salut Cathodique,

Je pense que c'était juste pour montrer que sa macro marchait sur une plage ( à droite ) mais pas sur un TDS ( à gauche)
Or, il voulait une macro sur TDS.

C'est cela
Merci a vous

 

[cathodique]

Salut Cathodique,

Je pense que c'était juste pour montrer que sa macro marchait sur une plage ( à droite ) mais pas sur un TDS ( à gauche)
Or, il voulait une macro sur TDS.

@sylvanu 😉: Perso, j'ai compris autrement. Comment remplir 2 plages pratiquement identiques via 2 formulaires identiques.
D'où ma proposition de transférer les données dans 2 plages (suivant la colonne où l'on double-clique) via un seul formulaire.

En fait, c'est aussi le code ci-dessous qui m'a aussi orienté vers ce que j'ai dit ci-dessus.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("C4:C131")) Is Nothing Then
            L = Target.Row
            UserForm1.Show
        End If
    End If
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("H4:H131")) Is Nothing Then
            L = Target.Row
            UserForm3.Show
        End If
    End If
    Cancel = True
End Sub

 

[cathodique]

C'est cela
Merci a vous

Tu m'as fait un joli petit-pont🙂