Public Type scompteur
nbr_de_4_col_a_ajouter As Integer
nbr_de_4_col_a_enlever As Integer
nbr_de_4_col_en_place As Integer
col_option As Integer
numero_poste As Integer
cpt As Integer 'compteur
lg As Integer 'ligne
cl As Integer 'colonne
End Type
Public compteur As scompteur
_________________________________________________
Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je
sais pas pourquoi.
Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente
pas. Et ca fait ca pour les autres.
Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées()
'compte le nombre de colonnes actuellement dispo dans une feuille
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
patrick
Bonjour,
j'ai essayé ta procédure compteur.numero_poste s'incrémente très bien lors du passage dans la boucle
@+ patrick
"ced" a écrit dans le message news:
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur nbr_de_4_col_a_ajouter As Integer nbr_de_4_col_a_enlever As Integer nbr_de_4_col_en_place As Integer col_option As Integer numero_poste As Integer cpt As Integer 'compteur lg As Integer 'ligne cl As Integer 'colonne End Type
Public compteur As scompteur _________________________________________________ Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je
sais pas pourquoi. Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente
pas. Et ca fait ca pour les autres. Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées() 'compte le nombre de colonnes actuellement dispo dans une feuille
Do test = Workbooks(name_grille_recap).Sheets("Base euros") _ .Cells(12, 3 + compteur.numero_poste).Value
compteur.numero_poste = compteur.numero_poste + 1
Loop While test <> "Temps" And test <> "fin"
compteur.numero_poste = compteur.numero_poste - 1
End Sub
Si qq a une sol ???? CAr la, je suis bien bloqué
Bonjour,
j'ai essayé ta procédure
compteur.numero_poste s'incrémente
très bien lors du passage dans la boucle
@+
patrick
"ced" <ced@discussions.microsoft.com> a écrit dans le message news:
AC1E028C-37F6-4B06-A8C8-5A855FC0629E@microsoft.com...
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur
nbr_de_4_col_a_ajouter As Integer
nbr_de_4_col_a_enlever As Integer
nbr_de_4_col_en_place As Integer
col_option As Integer
numero_poste As Integer
cpt As Integer 'compteur
lg As Integer 'ligne
cl As Integer 'colonne
End Type
Public compteur As scompteur
_________________________________________________
Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus,
je
sais pas pourquoi.
Des mon premier module, mon compteur "compteur.numero_poste " ne
sincremente
pas. Et ca fait ca pour les autres.
Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées()
'compte le nombre de colonnes actuellement dispo dans une feuille
j'ai essayé ta procédure compteur.numero_poste s'incrémente très bien lors du passage dans la boucle
@+ patrick
"ced" a écrit dans le message news:
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur nbr_de_4_col_a_ajouter As Integer nbr_de_4_col_a_enlever As Integer nbr_de_4_col_en_place As Integer col_option As Integer numero_poste As Integer cpt As Integer 'compteur lg As Integer 'ligne cl As Integer 'colonne End Type
Public compteur As scompteur _________________________________________________ Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je
sais pas pourquoi. Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente
pas. Et ca fait ca pour les autres. Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées() 'compte le nombre de colonnes actuellement dispo dans une feuille
Do test = Workbooks(name_grille_recap).Sheets("Base euros") _ .Cells(12, 3 + compteur.numero_poste).Value
compteur.numero_poste = compteur.numero_poste + 1
Loop While test <> "Temps" And test <> "fin"
compteur.numero_poste = compteur.numero_poste - 1
End Sub
Si qq a une sol ???? CAr la, je suis bien bloqué
SL
Bonjour
je ne peux pas te dire ce qui ne va pas dans ton code mais pour trouver la premiere colonne qui contient "temps" ou "fin" (255 si ni "temps" ni "fin")
On Error Resume Next m = 255 n = 255 m = Rows("12:12").Find(What:="temps", After:=Range("A12")).Column n = Rows("12:12").Find(What:="fin", After:=Range("A12")).Column MsgBox (Application.WorksheetFunction.Min(m, n))
Stéphane
"ced" a écrit dans le message de news:
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur nbr_de_4_col_a_ajouter As Integer nbr_de_4_col_a_enlever As Integer nbr_de_4_col_en_place As Integer col_option As Integer numero_poste As Integer cpt As Integer 'compteur lg As Integer 'ligne cl As Integer 'colonne End Type
Public compteur As scompteur _________________________________________________ Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je sais pas pourquoi. Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente pas. Et ca fait ca pour les autres. Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées() 'compte le nombre de colonnes actuellement dispo dans une feuille
Do test = Workbooks(name_grille_recap).Sheets("Base euros") _ .Cells(12, 3 + compteur.numero_poste).Value
compteur.numero_poste = compteur.numero_poste + 1
Loop While test <> "Temps" And test <> "fin"
compteur.numero_poste = compteur.numero_poste - 1
End Sub
Si qq a une sol ???? CAr la, je suis bien bloqué
Bonjour
je ne peux pas te dire ce qui ne va pas dans ton code
mais pour trouver la premiere colonne qui contient "temps" ou "fin" (255 si
ni "temps" ni "fin")
On Error Resume Next
m = 255
n = 255
m = Rows("12:12").Find(What:="temps", After:=Range("A12")).Column
n = Rows("12:12").Find(What:="fin", After:=Range("A12")).Column
MsgBox (Application.WorksheetFunction.Min(m, n))
Stéphane
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
AC1E028C-37F6-4B06-A8C8-5A855FC0629E@microsoft.com...
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur
nbr_de_4_col_a_ajouter As Integer
nbr_de_4_col_a_enlever As Integer
nbr_de_4_col_en_place As Integer
col_option As Integer
numero_poste As Integer
cpt As Integer 'compteur
lg As Integer 'ligne
cl As Integer 'colonne
End Type
Public compteur As scompteur
_________________________________________________
Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus,
je
sais pas pourquoi.
Des mon premier module, mon compteur "compteur.numero_poste " ne
sincremente
pas. Et ca fait ca pour les autres.
Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées()
'compte le nombre de colonnes actuellement dispo dans une feuille
je ne peux pas te dire ce qui ne va pas dans ton code mais pour trouver la premiere colonne qui contient "temps" ou "fin" (255 si ni "temps" ni "fin")
On Error Resume Next m = 255 n = 255 m = Rows("12:12").Find(What:="temps", After:=Range("A12")).Column n = Rows("12:12").Find(What:="fin", After:=Range("A12")).Column MsgBox (Application.WorksheetFunction.Min(m, n))
Stéphane
"ced" a écrit dans le message de news:
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur nbr_de_4_col_a_ajouter As Integer nbr_de_4_col_a_enlever As Integer nbr_de_4_col_en_place As Integer col_option As Integer numero_poste As Integer cpt As Integer 'compteur lg As Integer 'ligne cl As Integer 'colonne End Type
Public compteur As scompteur _________________________________________________ Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je sais pas pourquoi. Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente pas. Et ca fait ca pour les autres. Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées() 'compte le nombre de colonnes actuellement dispo dans une feuille
Do test = Workbooks(name_grille_recap).Sheets("Base euros") _ .Cells(12, 3 + compteur.numero_poste).Value
compteur.numero_poste = compteur.numero_poste + 1
Loop While test <> "Temps" And test <> "fin"
compteur.numero_poste = compteur.numero_poste - 1
End Sub
Si qq a une sol ???? CAr la, je suis bien bloqué
ced
Ouah, c'est sioux comme code !!
Bonjour
je ne peux pas te dire ce qui ne va pas dans ton code mais pour trouver la premiere colonne qui contient "temps" ou "fin" (255 si ni "temps" ni "fin")
On Error Resume Next m = 255 n = 255 m = Rows("12:12").Find(What:="temps", After:=Range("A12")).Column n = Rows("12:12").Find(What:="fin", After:=Range("A12")).Column MsgBox (Application.WorksheetFunction.Min(m, n))
Stéphane
"ced" a écrit dans le message de news:
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur nbr_de_4_col_a_ajouter As Integer nbr_de_4_col_a_enlever As Integer nbr_de_4_col_en_place As Integer col_option As Integer numero_poste As Integer cpt As Integer 'compteur lg As Integer 'ligne cl As Integer 'colonne End Type
Public compteur As scompteur _________________________________________________ Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je sais pas pourquoi. Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente pas. Et ca fait ca pour les autres. Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées() 'compte le nombre de colonnes actuellement dispo dans une feuille
Do test = Workbooks(name_grille_recap).Sheets("Base euros") _ .Cells(12, 3 + compteur.numero_poste).Value
compteur.numero_poste = compteur.numero_poste + 1
Loop While test <> "Temps" And test <> "fin"
compteur.numero_poste = compteur.numero_poste - 1
End Sub
Si qq a une sol ???? CAr la, je suis bien bloqué
Ouah, c'est sioux comme code !!
Bonjour
je ne peux pas te dire ce qui ne va pas dans ton code
mais pour trouver la premiere colonne qui contient "temps" ou "fin" (255 si
ni "temps" ni "fin")
On Error Resume Next
m = 255
n = 255
m = Rows("12:12").Find(What:="temps", After:=Range("A12")).Column
n = Rows("12:12").Find(What:="fin", After:=Range("A12")).Column
MsgBox (Application.WorksheetFunction.Min(m, n))
Stéphane
"ced" <ced@discussions.microsoft.com> a écrit dans le message de news:
AC1E028C-37F6-4B06-A8C8-5A855FC0629E@microsoft.com...
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur
nbr_de_4_col_a_ajouter As Integer
nbr_de_4_col_a_enlever As Integer
nbr_de_4_col_en_place As Integer
col_option As Integer
numero_poste As Integer
cpt As Integer 'compteur
lg As Integer 'ligne
cl As Integer 'colonne
End Type
Public compteur As scompteur
_________________________________________________
Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus,
je
sais pas pourquoi.
Des mon premier module, mon compteur "compteur.numero_poste " ne
sincremente
pas. Et ca fait ca pour les autres.
Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées()
'compte le nombre de colonnes actuellement dispo dans une feuille
je ne peux pas te dire ce qui ne va pas dans ton code mais pour trouver la premiere colonne qui contient "temps" ou "fin" (255 si ni "temps" ni "fin")
On Error Resume Next m = 255 n = 255 m = Rows("12:12").Find(What:="temps", After:=Range("A12")).Column n = Rows("12:12").Find(What:="fin", After:=Range("A12")).Column MsgBox (Application.WorksheetFunction.Min(m, n))
Stéphane
"ced" a écrit dans le message de news:
Bonjour a tous !
J'ai declaré Ca :
Public Type scompteur nbr_de_4_col_a_ajouter As Integer nbr_de_4_col_a_enlever As Integer nbr_de_4_col_en_place As Integer col_option As Integer numero_poste As Integer cpt As Integer 'compteur lg As Integer 'ligne cl As Integer 'colonne End Type
Public compteur As scompteur _________________________________________________ Avant ca marchait. J'ai continué mon prog, et maintenant, ca marche plus, je sais pas pourquoi. Des mon premier module, mon compteur "compteur.numero_poste " ne sincremente pas. Et ca fait ca pour les autres. Il reste a la valeur 0 et ne prend pas le +1
Sub Compte_col_utilisées() 'compte le nombre de colonnes actuellement dispo dans une feuille
