Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a �crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann�e 2008,
voil� mons pbme.
j'ai une BD sur une feuille nomm�e "2007", maintenant nous somme e n
2008, j'ai inser� une feuille nomm�e "2008", et comme c'es t le d�but
de l'ann�e j'ai des donn�es de l'ann�e 2007 qui so nt donc � ins�rer
dans la feuille "2007" et en m�me temps les donn�es 2008 c ommencent �
venir et je veux les ins�r�s dans "2008" bien s�r.
j'ai rajout� le code suivant:
le crit�re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive � s�lectionner la feuille "2 008", mais
les donn�es ne s'ajoutent ni � la feuille 2008 ni ï¿ ½ 2007.
ce que je veux, c'est d'ins�rer les donn�es 2008 dans la f euille 2008
et si elles sont de l'ann�e 2007, qu'elles soient ins�rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a �crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann�e 2008,
voil� mons pbme.
j'ai une BD sur une feuille nomm�e "2007", maintenant nous somme e n
2008, j'ai inser� une feuille nomm�e "2008", et comme c'es t le d�but
de l'ann�e j'ai des donn�es de l'ann�e 2007 qui so nt donc � ins�rer
dans la feuille "2007" et en m�me temps les donn�es 2008 c ommencent �
venir et je veux les ins�r�s dans "2008" bien s�r.
j'ai rajout� le code suivant:
le crit�re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive � s�lectionner la feuille "2 008", mais
les donn�es ne s'ajoutent ni � la feuille 2008 ni ï¿ ½ 2007.
ce que je veux, c'est d'ins�rer les donn�es 2008 dans la f euille 2008
et si elles sont de l'ann�e 2007, qu'elles soient ins�rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a �crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann�e 2008,
voil� mons pbme.
j'ai une BD sur une feuille nomm�e "2007", maintenant nous somme e n
2008, j'ai inser� une feuille nomm�e "2008", et comme c'es t le d�but
de l'ann�e j'ai des donn�es de l'ann�e 2007 qui so nt donc � ins�rer
dans la feuille "2007" et en m�me temps les donn�es 2008 c ommencent �
venir et je veux les ins�r�s dans "2008" bien s�r.
j'ai rajout� le code suivant:
le crit�re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive � s�lectionner la feuille "2 008", mais
les donn�es ne s'ajoutent ni � la feuille 2008 ni ï¿ ½ 2007.
ce que je veux, c'est d'ins�rer les donn�es 2008 dans la f euille 2008
et si elles sont de l'ann�e 2007, qu'elles soient ins�rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Tu es sur que la variable Z_Fab_date est mise à jour
En début de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est sautée
Youky
"zimou" a écrit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu à insérer dans la feuille
2007
merci
ci dessous le code complet, peut être j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Tu es sur que la variable Z_Fab_date est mise à jour
En début de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est sautée
Youky
"zimou" <mourad.touati@gmail.com> a écrit dans le message de news:
2e0f495d-45bc-498b-bd77-ed800ddfba0c@l6g2000prm.googlegroups.com...
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu à insérer dans la feuille
2007
merci
ci dessous le code complet, peut être j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End Sub
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Tu es sur que la variable Z_Fab_date est mise à jour
En début de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est sautée
Youky
"zimou" a écrit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu à insérer dans la feuille
2007
merci
ci dessous le code complet, peut être j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
oui la variable 'Z_Fab_date = "01/01/2008" est plac�e au dï¿ ½but du code
et je n'ai aucun m�ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise � jour
En d�but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est sau t�e
Youky
"zimou" a �crit dans le message de new s:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu � ins�rer dan s la feuille
2007
merci
ci dessous le code complet, peut �tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
oui la variable 'Z_Fab_date = "01/01/2008" est plac�e au dï¿ ½but du code
et je n'ai aucun m�ssage d'erreur.
merci
Tu es sur que la variable Z_Fab_date est mise � jour
En d�but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est sau t�e
Youky
"zimou" <mourad.touati@gmail.com> a �crit dans le message de new s:
2e0f495d-45bc-498b-bd77-ed800ddfba0c@l6g2000prm.googlegroups.com...
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu � ins�rer dan s la feuille
2007
merci
ci dessous le code complet, peut �tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End Sub
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
oui la variable 'Z_Fab_date = "01/01/2008" est plac�e au dï¿ ½but du code
et je n'ai aucun m�ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise � jour
En d�but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est sau t�e
Youky
"zimou" a �crit dans le message de new s:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu � ins�rer dan s la feuille
2007
merci
ci dessous le code complet, peut �tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac�e au dï ¿½but du code
et je n'ai aucun m�ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise � jour
En d�but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est s aut�e
Youky
"zimou" a �crit dans le message de n ews:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu � ins�rer d ans la feuille
2007
merci
ci dessous le code complet, peut �tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
merci
oui la variable 'Z_Fab_date = "01/01/2008" est plac�e au dï ¿½but du code
et je n'ai aucun m�ssage d'erreur.
merci
Tu es sur que la variable Z_Fab_date est mise � jour
En d�but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est s aut�e
Youky
"zimou" <mourad.touati@gmail.com> a �crit dans le message de n ews:
2e0f495d-45bc-498b-bd77-ed800ddfba0c@l6g2000prm.googlegroups.com...
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu � ins�rer d ans la feuille
2007
merci
ci dessous le code complet, peut �tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End Sub
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac�e au dï ¿½but du code
et je n'ai aucun m�ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise � jour
En d�but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est s aut�e
Youky
"zimou" a �crit dans le message de n ews:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu � ins�rer d ans la feuille
2007
merci
ci dessous le code complet, peut �tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" a ?crit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
merci
oui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merci
Tu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
2e0f495d-45bc-498b-bd77-ed800ddfba0c@l6g2000prm.googlegroups.com...
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End Sub
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" a ?crit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
Excuse moi du retard mais c'est Dimanche.
Je ne peux pas ouvrir le fichier de cjoint . ......Erreur! ! !dans le lien
Ce n'est pas grave, on va faire sans...
Pour que cela fonctionne la macro doit connaitre la valeur de Z_Fab_date
Ca y est je viens de comprendre que Z_Fab_date est un textbox. . ..euréka
Essaye ceci si c'est bien un TextBox
Youky
Dim Ligne As Integer
With Sheets(CStr(Year(Z_Fab_date.Text)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
"zimou" a écrit dans le message de news:
UTILISER 31 COMME PW
mercici joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" a ?crit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
From - Sun
Merci
Excuse moi du retard mais c'est Dimanche.
Je ne peux pas ouvrir le fichier de cjoint . ......Erreur! ! !dans le lien
Ce n'est pas grave, on va faire sans...
Pour que cela fonctionne la macro doit connaitre la valeur de Z_Fab_date
Ca y est je viens de comprendre que Z_Fab_date est un textbox. . ..euréka
Essaye ceci si c'est bien un TextBox
Youky
Dim Ligne As Integer
With Sheets(CStr(Year(Z_Fab_date.Text)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
"zimou" <mourad.touati@gmail.com> a écrit dans le message de news:
40915ee9-e82a-4476-a48d-308819c31bd6@m77g2000hsc.googlegroups.com...
UTILISER 31 COMME PW
merci
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
merci
oui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merci
Tu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
2e0f495d-45bc-498b-bd77-ed800ddfba0c@l6g2000prm.googlegroups.com...
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End Sub
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
From - Sun
Merci
Excuse moi du retard mais c'est Dimanche.
Je ne peux pas ouvrir le fichier de cjoint . ......Erreur! ! !dans le lien
Ce n'est pas grave, on va faire sans...
Pour que cela fonctionne la macro doit connaitre la valeur de Z_Fab_date
Ca y est je viens de comprendre que Z_Fab_date est un textbox. . ..euréka
Essaye ceci si c'est bien un TextBox
Youky
Dim Ligne As Integer
With Sheets(CStr(Year(Z_Fab_date.Text)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
"zimou" a écrit dans le message de news:
UTILISER 31 COMME PW
mercici joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" a ?crit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
From - Sun
Merci
Excuse moi du retard mais c'est Dimanche.
Je ne peux pas ouvrir le fichier de cjoint . ......Erreur! ! !dans le
lien
Ce n'est pas grave, on va faire sans...
Pour que cela fonctionne la macro doit connaitre la valeur de Z_Fab_date
Ca y est je viens de comprendre que Z_Fab_date est un textbox. . ..euréka
Essaye ceci si c'est bien un TextBox
Youky
Dim Ligne As Integer
With Sheets(CStr(Year(Z_Fab_date.Text)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
"zimou" a écrit dans le message de news:
UTILISER 31 COMME PW
mercici joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" a ?crit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
From - Sun
Merci
mais j'ai déjà testé et ça ne marche pas, les données sont insérées à la
feuille "2007" et la page "2008" n'est même pas selectionnée.
amicalement
bonne nuit
Excuse moi du retard mais c'est Dimanche.
Je ne peux pas ouvrir le fichier de cjoint . ......Erreur! ! !dans le
lien
Ce n'est pas grave, on va faire sans...
Pour que cela fonctionne la macro doit connaitre la valeur de Z_Fab_date
Ca y est je viens de comprendre que Z_Fab_date est un textbox. . ..euréka
Essaye ceci si c'est bien un TextBox
Youky
Dim Ligne As Integer
With Sheets(CStr(Year(Z_Fab_date.Text)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
"zimou" <mourad.touati@gmail.com> a écrit dans le message de news:
40915ee9-e82a-4476-a48d-308819c31bd6@m77g2000hsc.googlegroups.com...
UTILISER 31 COMME PW
merci
ci joint le fichier excel: http://cjoint.com/?bgmXXllUTg
merci
oui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merci
Tu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
2e0f495d-45bc-498b-bd77-ed800ddfba0c@l6g2000prm.googlegroups.com...
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End Sub
Salut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" <mourad.touati@gmail.com> a ?crit dans le message de news:
19bd79ef-2462-4e76-a924-787c716dde15@d70g2000hsb.googlegroups.com...
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
From - Sun
Merci
mais j'ai déjà testé et ça ne marche pas, les données sont insérées à la
feuille "2007" et la page "2008" n'est même pas selectionnée.
amicalement
bonne nuit
Excuse moi du retard mais c'est Dimanche.
Je ne peux pas ouvrir le fichier de cjoint . ......Erreur! ! !dans le
lien
Ce n'est pas grave, on va faire sans...
Pour que cela fonctionne la macro doit connaitre la valeur de Z_Fab_date
Ca y est je viens de comprendre que Z_Fab_date est un textbox. . ..euréka
Essaye ceci si c'est bien un TextBox
Youky
Dim Ligne As Integer
With Sheets(CStr(Year(Z_Fab_date.Text)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
"zimou" a écrit dans le message de news:
UTILISER 31 COMME PW
mercici joint le fichier excel: http://cjoint.com/?bgmXXllUTg
mercioui la variable 'Z_Fab_date = "01/01/2008" est plac?e au d?but du code
et je n'ai aucun m?ssage d'erreur.
merciTu es sur que la variable Z_Fab_date est mise ? jour
En d?but de macro essai de la lire
MsgBox Z_Fab_date
dans ma macro
'Z_Fab_date = "01/01/2008" il y a une apostrophe donc la ligne est
saut?e
Youky
"zimou" a ?crit dans le message de news:
Merci pour l'aide,
mais ce code ne fait pas mieux, je continu ? ins?rer dans la feuille
2007
merci
ci dessous le code complet, peut ?tre j'ai male copier
Private Sub Ajouter_Click()
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = Range("A65536").End(xlUp).Row + 1
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
End With
End SubSalut bien,
Dim Ligne As Integer
'Z_Fab_date = "01/01/2008" 'la variable
With Sheets(CStr(Year(Z_Fab_date)))
Ligne = .Range("A65536").End(xlUp).Row + 1
.Range("A" & Ligne) = Nlot_Mp.Value
.Range("B" & Ligne) = Z_N_Lot.Value
.Range("C" & Ligne) = CDate(Z_Fab_date.Value)
.Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
.Range("E" & Ligne) = Z_Quantite.Value
.Range("G" & Ligne) = Z_delitement.Value
.Range("F" & Ligne) = Z_Dissolution.Value
.Range("H" & Ligne) = Z_Humidite.Value
.Range("I" & Ligne) = Z_PM75.Value
.Range("J" & Ligne) = Z_PM_n7.Value
.Range("K" & Ligne) = Z_dos.Value
End With
ca doit le faire sans selectionner la feuille
remarque: Attention j'ai mis des points .
Youky
"zimou" a ?crit dans le message de news:
Bonjour et meilleurs voeux pour l'ann?e 2008,
voil? mons pbme.
j'ai une BD sur une feuille nomm?e "2007", maintenant nous somme en
2008, j'ai inser? une feuille nomm?e "2008", et comme c'est le d?but
de l'ann?e j'ai des donn?es de l'ann?e 2007 qui sont donc ? ins?rer
dans la feuille "2007" et en m?me temps les donn?es 2008 commencent ?
venir et je veux les ins?r?s dans "2008" bien s?r.
j'ai rajout? le code suivant:
le crit?re choisi est : Z_Fab_date qu'est la date de fabrication.
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
avec ce bout de code j'arrive ? s?lectionner la feuille "2008", mais
les donn?es ne s'ajoutent ni ? la feuille 2008 ni ? 2007.
ce que je veux, c'est d'ins?rer les donn?es 2008 dans la feuille 2008
et si elles sont de l'ann?e 2007, qu'elles soient ins?rer dans la
feuille 2007. sans aucune intervention de la personne qui fait la
saisie. tout avec VBA.
ci dessous le code entier.
merci d'avance.
Private Sub Ajouter_Click()
Dim Ligne As Long
Ligne = Range("A65536").End(xlUp).Row + 1
If Z_Fab_date > ("01/01/2008") Then
ActiveWorkbook.Worksheets("2008").Activate
Worksheets("2008").Select
End If
Range("A" & Ligne) = Nlot_Mp.Value
Range("B" & Ligne) = Z_N_Lot.Value
Range("C" & Ligne) = CDate(Z_Fab_date.Value)
Range("D" & Ligne) = CDate(Z_Date_Lib.Value)
Range("E" & Ligne) = Z_Quantite.Value
Range("G" & Ligne) = Z_delitement.Value
Range("F" & Ligne) = Z_Dissolution.Value
Range("H" & Ligne) = Z_Humidite.Value
Range("I" & Ligne) = Z_PM75.Value
Range("J" & Ligne) = Z_PM_n7.Value
Range("K" & Ligne) = Z_dos.Value
From - Sun
Merci
mais j'ai déjà testé et ça ne marche pas, les données sont insérées à la
feuille "2007" et la page "2008" n'est même pas selectionnée.
amicalement
bonne nuit