Procédure

  • Initiateur de la discussion Ouin-Ouin
  • Date de début
O

Ouin-Ouin

Guest
Bonjour le forum,
Partie II de mon application... c'est parti
je cherche de l'aide pour savoir comment faire pour que la procédure ci-dessous soit aussi valable pour que je puisse mettre les données dans la Feuil6 du même classeur tout en gardant la procédure ci-dessous que j'ai aussi besoin.
ceci va me servir avec un tableau récapitulatif à un moment donné dans l'année avec la fonction Filtre données par la suite.
merci de votre aide
@+ Ouin-Ouin


Private Sub CommandButton1_Click()


Dim WB As String, WS As String, WR As String
Dim TheNum As Double

With Sheets("Document")
.Activate
.Copy
End With

With ActiveWorkbook.ActiveSheet
.Range("B41") = ComboBox1
.Range("B42") = TextBox3
.Range("B43") = TextBox5
.Range("B46") = TextBox8
.Range("B35") = TextBox9
.Range("C35") = TextBox10
.Range("D35") = TextBox11
.Range("E35") = TextBox12
.Range("B38") = TextBox2
.Range("D23") = Label1
.Range("E23") = Label2
 
Trier par date Trier par votes
O

Ouin-Ouin

Guest
Bonjour le Forum et excellent week-end à tous qui s'annonce très chaud et très Exliens

Bon j'ai changé ma procédure et je pense intégrer celle là


If TextBox16 = "" Then Exit Sub
Ligne = Feuil("AnnexeII").Range("A65536").End(xlUp).Row + 1
Sheets("AnnexeII").Range("B" & Ligne) = TextBox16

AnnexeII.Range("B" & CStr(Ligne)) = TextBox16
AnnexeII.Range("C" & CStr(Ligne)) = TextBox15
AnnexeII.Range("D" & CStr(Ligne)) = TextBox2
AnnexeII.Range("E" & CStr(Ligne)) = TextBox9
AnnexeII.Range("F" & CStr(Ligne)) = ComBox1
AnnexeII.Range("G" & CStr(Ligne)) = TextBox3
AnnexeII.Range("H" & CStr(Ligne)) = TextBox8
AnnexeII.Range("I" & CStr(Ligne)) = TextBox5
AnnexeII.Range("J" & CStr(Ligne)) = TextBox13
AnnexeII.Range("k" & CStr(Ligne)) = Label2
AnnexeII.Range("N" & CStr(Ligne)) = Label1

seulement je reçoit un gentil message de VBA me disant:
Sub ou Fonction non définie

@+Ouin-Ouin
 
Vote positif 0 Vote négatif
O

Ouin-Ouin

Guest
Hello tout le monde,
Voilà j'ai remis ma procédure avec la correction de Didier_mdf que je remerci au passage En résumé tout fonctionnait ( fonctionne bien ) jusqu'au début de la procédure: If TextBox16 = "" Then Exit Sub en bas de cette page. Cela va en Colonne B parce que en colonne A je dois mettre un N° automatique pour chaque enregistrement arrivant de ma procédure
Merci beaucoup @+
Ouin-Ouin


Private Sub CommandButton1_Click()
Dim WB As String, WS As String, WR As String
Dim TheNum As Double

With Sheets("Document")
.Activate
.Copy
End With

With ActiveWorkbook.ActiveSheet
.Range("B41") = ComboBox1
.Range("B42") = TextBox3
.Range("B43") = TextBox5
.Range("B46") = TextBox8
.Range("B35") = TextBox9
.Range("C35") = TextBox10
.Range("D35") = TextBox11
.Range("E35") = TextBox12
.Range("B38") = TextBox2
.Range("D23") = Label1
.Range("E23") = Label2
.Range("B55") = TextBox1
.Range("C8") = TextBox17
.Range("C9") = TextBox16
.Range("D9") = TextBox15

If Not IsNumeric(TextBox13) Then Exit Sub

TheNum = TextBox13.Value

With .Range("C23")
.Value = TheNum
.NumberFormat = "#,###,##0.000"
End With

If Not IsNumeric(Label1) Then Exit Sub

TheNum = Label1.Caption

With .Range("D23")
.Value = TheNum
.NumberFormat = "#,###,##0.000"
End With


If Not IsNumeric(Label2) Then Exit Sub

TheNum = Label2.Caption


With .Range("E23")
.Value = TheNum
.NumberFormat = "#,###,##0.000"
End With
End With

Application.Dialogs(xlDialogSaveAs).Show "Document.xls"

----------------------------------------------->>>>> depuis ici j'ai le problème et là je dois encore mettre la procédure que en Colonne A j'ai un N° automatique pour chaque enregistrement ---------------->>>>>



If TextBox16 = "" Then Exit Sub
Ligne = Sheets("AnnexeII").Range("A65536").End(xlUp).Row + 1
Sheets("AnnexeII").Range("B" & Ligne) = TextBox16

AnnexeII.Range("B" & CStr(Ligne)) = TextBox16
AnnexeII.Range("C" & CStr(Ligne)) = TextBox15
AnnexeII.Range("D" & CStr(Ligne)) = TextBox2
AnnexeII.Range("E" & CStr(Ligne)) = TextBox9
AnnexeII.Range("F" & CStr(Ligne)) = ComBox1
AnnexeII.Range("G" & CStr(Ligne)) = TextBox3
AnnexeII.Range("H" & CStr(Ligne)) = TextBox8
AnnexeII.Range("I" & CStr(Ligne)) = TextBox5
AnnexeII.Range("J" & CStr(Ligne)) = TextBox13
AnnexeII.Range("k" & CStr(Ligne)) = Label2
AnnexeII.Range("N" & CStr(Ligne)) = Label1
 
Vote positif 0 Vote négatif
@

@+Thierry

Guest
Bonjour Ouin_Ouin, le Forum

Ce que Ouin_Ouin à oublier de dire c'est que nous avons travaillé très tard en Chat et ne comprenant plus rien je lui ai demandé son fichier... Voici la version Revue et Corrigée du Code ci-dessus :

Private Sub CommandButton1_Click()
Dim WB As String, WS As String, WR As String
Dim TheNum As Double
Dim Ligne As Integer
Dim TheBaseBook As Workbook 'DECLARATION DE VARIABLE OBJET WORKBOOK

Set TheBaseBook = ThisWorkbook '<<<<<<<<<< JE DEFINIS LE WORKBOOK DE BASE

With Sheets("Document") '<<<< ICI il est créé un nouveau WorkBook avec "Copie"
.Activate
.Copy
End With

With ActiveWorkbook.ActiveSheet
.Range("B41") = ComboBox1
.Range("B42") = TextBox3
.Range("B43") = TextBox5
.Range("B46") = TextBox8
.Range("B35") = TextBox9
.Range("C35") = TextBox10
.Range("D35") = TextBox11
.Range("E35") = TextBox12
.Range("B38") = TextBox2
.Range("D23") = Label1
.Range("E23") = Label2
.Range("B55") = TextBox1
.Range("C8") = TextBox17
.Range("C9") = TextBox16
.Range("D9") = TextBox15

If Not IsNumeric(TextBox13) Then Exit Sub

TheNum = TextBox13.Value

With .Range("C23")
.Value = TheNum
.NumberFormat = "#,###,##0.000"
End With

If Not IsNumeric(Label1) Then Exit Sub

TheNum = Label1.Caption

With .Range("D23")
.Value = TheNum
.NumberFormat = "#,###,##0.000"
End With


If Not IsNumeric(Label2) Then Exit Sub

TheNum = Label2.Caption


With .Range("E23")
.Value = TheNum
.NumberFormat = "#,###,##0.000"
End With
End With
Application.Dialogs(xlDialogSaveAs).Show "Document.xls"

With TheBaseBook.Sheets("AnnexeII") 'vu qu'on a deux classeurs à ce moment là...
Ligne = .Range("A65536").End(xlUp).Row + 1

.Range("B" & CStr(Ligne)) = TextBox16
.Range("C" & CStr(Ligne)) = TextBox15
.Range("D" & CStr(Ligne)) = TextBox2
.Range("E" & CStr(Ligne)) = TextBox9
.Range("F" & CStr(Ligne)) = ComboBox1
.Range("G" & CStr(Ligne)) = TextBox3
.Range("H" & CStr(Ligne)) = TextBox8
.Range("I" & CStr(Ligne)) = TextBox5
.Range("J" & CStr(Ligne)) = TextBox13
.Range("k" & CStr(Ligne)) = Label2
.Range("N" & CStr(Ligne)) = Label1
End With
End Sub

Bon Dimanche
@+Thierry
 
Vote positif 0 Vote négatif
O

Ouin-Ouin

Guest
Bonsoir Thierry,

Sorry pour l'oubli...
J'ai encore une petite faille à savoir:

Les valeurs passent bien dans la feuille "AnnexeII" mais à chaque nouveau enregistrement cela va toujours sur la même ligne et par conséquent me remplacer l'enregistrement existant en lieu et place d'en créer un nouveau.

J'ai lancé un nouveau fil ( je sais pas si j'ai bien fait ) mais en lisant la Charte c'est ce que j'ai cru comprendre... pour cette même procédure mais pour le formatage de la colonne en effet: il me faut encore que le chiffre soit au format DT c'est à dire:
NumberFormat = "#,###,##0.000"

j'ai trouvé une partie avec le code:

If Not IsNumeric(TextBox13) Then Exit Sub
'
' TheNum = TextBox13.Value
'
' With .Range("J3:J65536")
' .Value = TheNum
' .NumberFormat = "#,###,##0.000"
' End With
seulement là il me recopie la valeur dans toute la colonne jusqu'à la fin idem avec :

If Not IsNumeric(TextBox13) Then Exit Sub
'
' TheNum = TextBox13.Value
'
' With .Range("J:J")
' .Value = TheNum
' .NumberFormat = "#,###,##0.000"
' End With

merci et @plus
Ouin-Ouin
 
Vote positif 0 Vote négatif
O

Ouin-Ouin

Guest
bon avec l'aide de thierry il suffisait de changer
Ligne = .Range("A65536").End(xlUp).Row + 1
par
Ligne = .Range("B65536").End(xlUp).Row + 1
étant donné que la colonne A était vide

quand au format là je n'y suis pas encore...
@+
Ouin-Ouin
 
Vote positif 0 Vote négatif

Discussions similaires

pmfontaine
  • Question
Microsoft 365 Erreur d'exécution 5 argument ou appel de procédure incorrect avec ActiveSheet.ChartObjects.Add()
Réponses
12
Affichages
419
pmfontaine
pmfontaine
tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
173
tactic6
tactic6
F
  • Question
Autres Ouverture Outlook en VBA
Réponses
6
Affichages
1 K
FOUQUET Yves
F
T
  • Question
XL 2016 Procédure trop longue
Réponses
9
Affichages
793
jmfmarques
J
tactic6
  • Question
XL 2013 Bizarre Erreur de compilation: variable non définie RESOLU
Réponses
11
Affichages
1 K
tactic6
tactic6
tactic6
  • Question
XL 2013 trop de caractère de continuité de ligne
Réponses
4
Affichages
4 K
tactic6
tactic6
T
  • Question
Trier les informations d'une liste déroulante
Réponses
3
Affichages
2 K
Toubabou
T
D
  • Question
Procédure trop grande
2 3 4
Réponses
46
Affichages
9 K
domeli
D
Z
  • Question
Code macro non fonctionnel lorsque feuille protégée
Réponses
3
Affichages
914
zombe
Z
tactic6
  • Question
Longueur ligne de code
2
Réponses
16
Affichages
2 K
tactic6
tactic6

Membres actuellement en ligne

2 membres et 41 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 305
Messages
2 087 084
Membres
103 459
dernier inscrit
Arnocal