XL 2021 Aide tableau excel VBA

NicolasKH · 14 Juillet 2023

Bonjours les amis pro d'excel
je viens vous demandez votre aide sur mon probleme, j'une feuille avec plusieurs tableau, dans mon userform je dois renseigner des donnes dans chaque tableau avec mon userform mais quand je fais un test ca me donne une erreur d'execution 424

voici mon code
Private Sub CbtValider_Click()
'On cherche la prochaine ligne vide de la source
Feuil1.Activate
Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select
' On effecte les donnees du formulaire dans la source
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = Me.TxtTravaux
ActiveCell.Offset(0, 3) = Me.TxtLieux
ActiveCell.Offset(0, 5) = Me.TxtChefProjet
ActiveCell.Offset(0, 7) = Me.TxtChefChantier
ActiveCell.Offset(0, 16) = Me.TxtPretMateriel
ActiveCell.Offset(0, 18) = Me.TxtOuvrier
ActiveCell.Offset(0, 20) = Me.TxtDesignation
End Sub

pouviez vous m'expliquer le probleme s'il vous plait merci

cp4 · 14 Juillet 2023

NicolasKH à dit:
Bonjours les amis pro d'excel
je viens vous demandez votre aide sur mon probleme, j'une feuille avec plusieurs tableau, dans mon userform je dois renseigner des donnes dans chaque tableau avec mon userform mais quand je fais un test ca me donne une erreur d'execution 424

voici mon code
Private Sub CbtValider_Click()
'On cherche la prochaine ligne vide de la source
Feuil1.Activate
Feuil1.Range("A1048576").End(xlUp).Offset(1, 0).Select
' On effecte les donnees du formulaire dans la source
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1) = Me.TxtTravaux
ActiveCell.Offset(0, 3) = Me.TxtLieux
ActiveCell.Offset(0, 5) = Me.TxtChefProjet
ActiveCell.Offset(0, 7) = Me.TxtChefChantier
ActiveCell.Offset(0, 16) = Me.TxtPretMateriel
ActiveCell.Offset(0, 18) = Me.TxtOuvrier
ActiveCell.Offset(0, 20) = Me.TxtDesignation
End Sub

pouviez vous m'expliquer le probleme s'il vous plait merci

Bonjour,
Il n'y a ni userform ni code dans ton fichier joint.

NicolasKH · 14 Juillet 2023

cp4 à dit:
Bonjour,
Il n'y a ni userform ni code dans ton fichier joint.

bonjour cp4
merci pour ta reponse
voici le fichier joind avec le userform et le code

fanfan38 · 14 Juillet 2023

Bonjour
Je vois pas bien l'utilté...
Ci joint ma solution

A+ François

NicolasKH · 14 Juillet 2023

fanfan38 à dit:
Bonjour
Je vois pas bien l'utilté...
Ci joint ma solution

A+ François

merci pour ta reponse tres rapide, j'ai fais le test et ca marche presque comme je veux, je m'explique:
dans le userform je voudrais que si je rajoute un element dans un des tableaux, que ca ne me rajoute pas de ligne dans les autres tableaux.
je ne s'est pas si je m'explique bien.

dans ta solution sa m'ajoute une ligne dans tous les tableaux

fanfan38 · 14 Juillet 2023

Pas chez moi
Donne moi des examples...
La macro dit: si textbox non vide on fait... donc si vide on fait pas...
A+ François

NicolasKH · 14 Juillet 2023

fanfan38 à dit:
Pas chez moi
Donne moi des examples...
La macro dit: si textbox non vide on fait... donc di vide on fait pas...
A+ François

exemple j'ai sur une feuille 3 tableau (test1, test2, test3)
quand je rentree des donnes dans le tableaux test1 avec le userform le tableau test2 et test3 ne dois pas me rajouter de ligne en plus

fanfan38 · 14 Juillet 2023

Autant pour moi... j'ai vu... et j(ai corrigé

A+ François

cp4 · 14 Juillet 2023

Rebonjour,

En renommant judicieusement les tableaux structurés, voici ma contribution.
Bonne journée.

job75 · 14 Juillet 2023

Bonjour NicolasKH, cp4, fanfan38,

Une autre manière :

VB:

Private Sub CbtValider_Click()
    Dim TB, T As Range, i, n&
    TB = Array(TxtTravaux, TxtLieux, TxtChefProjet, TxtChefChantier, TxtPretMateriel, TxtOuvrier, TxtDesignation)
    Set T = Range("T_travaux,T_lieux,T_chefprojet,T_chefchantier,T_pret,T_ouvrier,T_designation")
    For i = 1 To T.Areas.Count
        n = T.Areas(i).Count - (T.Areas(i).Cells(1) <> "")
        T.Areas(i).Cells(n) = TB(i - 1).Text
    Next
    Unload Me
    UserForm1.Show
End Sub

A+

job75 · 14 Juillet 2023

Notez que .Text (ou .Value) est nécessaire quand la TextBox est vide, pour éviter l'agrandissement du tableau structuré.

NicolasKH · 15 Juillet 2023

merci pour vos aide qui me sont tres utile car je debut dans le vba, je vais faire le test des que je rentre a la maison, une autre question pour reinitialiser le userform a chaque fois que l'on valide j'ai essayer ce code et ca ne marche pas

'Procedure permettant la remise a zero du userform
Me.CboChefProjet = ""
Me.CboChefChantier = ""
Me.CboProjet = ""
Me.CboLieux = ""
Me.CboTacheEffectuer = ""
Me.TxtDebut = ""
Me.TxtFin = ""

merci
JOB75, CP4, FANFAN38

fanfan38 · 15 Juillet 2023

Bonjour
Le plus sur pour réinitialiser à la fin de la macro de validation
unload me
userform.show

A+ François

NicolasKH · 16 Juillet 2023

bonjour je reviens de campagne et j'ai test vos solution et c'estimpecable tous fonctionne bien, mais j'ai une autre question a vous demandez.

j.ai dans mon classeur une feuille nommee (tresorerie) et une autre (avance ouvrier), mon idee c'est que si j'insert des donnes dans mon tableau de la feuille AVANCE OUVRIER que les donnes la ligne sois copier dans la feuille TRESORERIE avec dans la colonne Designation le text AVANCE OUVRIER

job75 · 16 Juillet 2023

Bonjour NicolasKH, le forum,

Ce n'est plus le même problème, conformément à la Charte créez une nouvelle discussion.

A+

XL 2021 Aide tableau excel VBA

NicolasKH

XLDnaute Junior

Pièces jointes

cp4

XLDnaute Barbatruc

NicolasKH

XLDnaute Junior

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

NicolasKH

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

NicolasKH

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

NicolasKH

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

NicolasKH

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires