Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement
à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.
Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement
à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement
à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Merci,
j'ai suivi tes conseils.
En apportant une modif, c'est à dire que j'ai associé une macro à chaque
zone nommée et un bouton. Ca marche bien
Maintenant tu peux peut-être m'aider pour un autre truc.
J'ai deux macros pratiquement identiques la 1ére est hyper lente, la
deuxième non.
Pourtant le code est presque le même Celle qui est très lente est la
prémière.
De plus sur la prémière si je saisi ds ma boite Date départ 01/12/04 et date
fin 31/12/04, la macro fonctionne jusqu'au 30/12/04???
Aurais-tu une solution
Merci
Pascal
Sub normaux()
Application.ScreenUpdating = False
'DD_1 correpond à la date début des horaires normaux
'DF_1 correspond à la date fin des horaires normaux
'Détail correspond à la zone nommée ("A3:A368")
i = [DD_1]
j = [DF_1]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD_1 = Heures début des horaires normaux
'HF_1 = Heures fin des horaires normaux
Cell(jour, 4).Value = [HD_1]
Cell(jour, 5).Value = [HF_1]
End If
Next
Application.ScreenUpdating = True
End Sub
Sub spécifiques()
Application.ScreenUpdating = False
'DD correpond à la date début des horaires spécifiques
'DF correspond à la date fin des horaires spécifiques
'Détail correspond à la zone nommée ("A3:A368")
i = [DD]
j = [DF]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD = Heures début des horaires spécifiques
'HF = Heures fin des horaires spécifiques
Cell(jour, 10).Value = [HD]
Cell(jour, 11).Value = [HFIN]
End If
Next
Application.ScreenUpdating = True
End Sub
"Michel Gaboly" a écrit dans le message de
news:Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement
àl'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Merci,
j'ai suivi tes conseils.
En apportant une modif, c'est à dire que j'ai associé une macro à chaque
zone nommée et un bouton. Ca marche bien
Maintenant tu peux peut-être m'aider pour un autre truc.
J'ai deux macros pratiquement identiques la 1ére est hyper lente, la
deuxième non.
Pourtant le code est presque le même Celle qui est très lente est la
prémière.
De plus sur la prémière si je saisi ds ma boite Date départ 01/12/04 et date
fin 31/12/04, la macro fonctionne jusqu'au 30/12/04???
Aurais-tu une solution
Merci
Pascal
Sub normaux()
Application.ScreenUpdating = False
'DD_1 correpond à la date début des horaires normaux
'DF_1 correspond à la date fin des horaires normaux
'Détail correspond à la zone nommée ("A3:A368")
i = [DD_1]
j = [DF_1]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD_1 = Heures début des horaires normaux
'HF_1 = Heures fin des horaires normaux
Cell(jour, 4).Value = [HD_1]
Cell(jour, 5).Value = [HF_1]
End If
Next
Application.ScreenUpdating = True
End Sub
Sub spécifiques()
Application.ScreenUpdating = False
'DD correpond à la date début des horaires spécifiques
'DF correspond à la date fin des horaires spécifiques
'Détail correspond à la zone nommée ("A3:A368")
i = [DD]
j = [DF]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD = Heures début des horaires spécifiques
'HF = Heures fin des horaires spécifiques
Cell(jour, 10).Value = [HD]
Cell(jour, 11).Value = [HFIN]
End If
Next
Application.ScreenUpdating = True
End Sub
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:3FBC86B0.A8B97261@Suppgaboly.com...
Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.
Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement
à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Merci,
j'ai suivi tes conseils.
En apportant une modif, c'est à dire que j'ai associé une macro à chaque
zone nommée et un bouton. Ca marche bien
Maintenant tu peux peut-être m'aider pour un autre truc.
J'ai deux macros pratiquement identiques la 1ére est hyper lente, la
deuxième non.
Pourtant le code est presque le même Celle qui est très lente est la
prémière.
De plus sur la prémière si je saisi ds ma boite Date départ 01/12/04 et date
fin 31/12/04, la macro fonctionne jusqu'au 30/12/04???
Aurais-tu une solution
Merci
Pascal
Sub normaux()
Application.ScreenUpdating = False
'DD_1 correpond à la date début des horaires normaux
'DF_1 correspond à la date fin des horaires normaux
'Détail correspond à la zone nommée ("A3:A368")
i = [DD_1]
j = [DF_1]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD_1 = Heures début des horaires normaux
'HF_1 = Heures fin des horaires normaux
Cell(jour, 4).Value = [HD_1]
Cell(jour, 5).Value = [HF_1]
End If
Next
Application.ScreenUpdating = True
End Sub
Sub spécifiques()
Application.ScreenUpdating = False
'DD correpond à la date début des horaires spécifiques
'DF correspond à la date fin des horaires spécifiques
'Détail correspond à la zone nommée ("A3:A368")
i = [DD]
j = [DF]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD = Heures début des horaires spécifiques
'HF = Heures fin des horaires spécifiques
Cell(jour, 10).Value = [HD]
Cell(jour, 11).Value = [HFIN]
End If
Next
Application.ScreenUpdating = True
End Sub
"Michel Gaboly" a écrit dans le message de
news:Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus facilement
àl'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonsoir,
De rien ;-))
Désolé, mais je ne vois pas pourquoi la première des 2 macros est
+ lente ;-((
La seule hypothèse qui me vient à l'esprit est que peut-être que les
modifs
faite par la première entraînent des recalculs + nombreux et/ou + longs.
Fais un test en rajoutant
Application.Calculation = xlManual
au début du code et
Application.Calculation = xlAutomatic
à la fin.
Cela évitera les recalculs à chaque passage dans la boucle ;-))Merci,
j'ai suivi tes conseils.
En apportant une modif, c'est à dire que j'ai associé une macro à chaque
zone nommée et un bouton. Ca marche bien
Maintenant tu peux peut-être m'aider pour un autre truc.
J'ai deux macros pratiquement identiques la 1ére est hyper lente, la
deuxième non.
Pourtant le code est presque le même Celle qui est très lente est la
prémière.
De plus sur la prémière si je saisi ds ma boite Date départ 01/12/04 et
date
fin 31/12/04, la macro fonctionne jusqu'au 30/12/04???
Aurais-tu une solution
Merci
Pascal
Sub normaux()
Application.ScreenUpdating = False
'DD_1 correpond à la date début des horaires normaux
'DF_1 correspond à la date fin des horaires normaux
'Détail correspond à la zone nommée ("A3:A368")
i = [DD_1]
j = [DF_1]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD_1 = Heures début des horaires normaux
'HF_1 = Heures fin des horaires normaux
Cell(jour, 4).Value = [HD_1]
Cell(jour, 5).Value = [HF_1]
End If
Next
Application.ScreenUpdating = True
End Sub
Sub spécifiques()
Application.ScreenUpdating = False
'DD correpond à la date début des horaires spécifiques
'DF correspond à la date fin des horaires spécifiques
'Détail correspond à la zone nommée ("A3:A368")
i = [DD]
j = [DF]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD = Heures début des horaires spécifiques
'HF = Heures fin des horaires spécifiques
Cell(jour, 10).Value = [HD]
Cell(jour, 11).Value = [HFIN]
End If
Next
Application.ScreenUpdating = True
End Sub
"Michel Gaboly" a écrit dans le message de
news:Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus
facilement
àl'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonsoir,
De rien ;-))
Désolé, mais je ne vois pas pourquoi la première des 2 macros est
+ lente ;-((
La seule hypothèse qui me vient à l'esprit est que peut-être que les
modifs
faite par la première entraînent des recalculs + nombreux et/ou + longs.
Fais un test en rajoutant
Application.Calculation = xlManual
au début du code et
Application.Calculation = xlAutomatic
à la fin.
Cela évitera les recalculs à chaque passage dans la boucle ;-))
Merci,
j'ai suivi tes conseils.
En apportant une modif, c'est à dire que j'ai associé une macro à chaque
zone nommée et un bouton. Ca marche bien
Maintenant tu peux peut-être m'aider pour un autre truc.
J'ai deux macros pratiquement identiques la 1ére est hyper lente, la
deuxième non.
Pourtant le code est presque le même Celle qui est très lente est la
prémière.
De plus sur la prémière si je saisi ds ma boite Date départ 01/12/04 et
date
fin 31/12/04, la macro fonctionne jusqu'au 30/12/04???
Aurais-tu une solution
Merci
Pascal
Sub normaux()
Application.ScreenUpdating = False
'DD_1 correpond à la date début des horaires normaux
'DF_1 correspond à la date fin des horaires normaux
'Détail correspond à la zone nommée ("A3:A368")
i = [DD_1]
j = [DF_1]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD_1 = Heures début des horaires normaux
'HF_1 = Heures fin des horaires normaux
Cell(jour, 4).Value = [HD_1]
Cell(jour, 5).Value = [HF_1]
End If
Next
Application.ScreenUpdating = True
End Sub
Sub spécifiques()
Application.ScreenUpdating = False
'DD correpond à la date début des horaires spécifiques
'DF correspond à la date fin des horaires spécifiques
'Détail correspond à la zone nommée ("A3:A368")
i = [DD]
j = [DF]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD = Heures début des horaires spécifiques
'HF = Heures fin des horaires spécifiques
Cell(jour, 10).Value = [HD]
Cell(jour, 11).Value = [HFIN]
End If
Next
Application.ScreenUpdating = True
End Sub
"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:3FBC86B0.A8B97261@Suppgaboly.com...
Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.
Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus
facilement
à
l'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonsoir,
De rien ;-))
Désolé, mais je ne vois pas pourquoi la première des 2 macros est
+ lente ;-((
La seule hypothèse qui me vient à l'esprit est que peut-être que les
modifs
faite par la première entraînent des recalculs + nombreux et/ou + longs.
Fais un test en rajoutant
Application.Calculation = xlManual
au début du code et
Application.Calculation = xlAutomatic
à la fin.
Cela évitera les recalculs à chaque passage dans la boucle ;-))Merci,
j'ai suivi tes conseils.
En apportant une modif, c'est à dire que j'ai associé une macro à chaque
zone nommée et un bouton. Ca marche bien
Maintenant tu peux peut-être m'aider pour un autre truc.
J'ai deux macros pratiquement identiques la 1ére est hyper lente, la
deuxième non.
Pourtant le code est presque le même Celle qui est très lente est la
prémière.
De plus sur la prémière si je saisi ds ma boite Date départ 01/12/04 et
date
fin 31/12/04, la macro fonctionne jusqu'au 30/12/04???
Aurais-tu une solution
Merci
Pascal
Sub normaux()
Application.ScreenUpdating = False
'DD_1 correpond à la date début des horaires normaux
'DF_1 correspond à la date fin des horaires normaux
'Détail correspond à la zone nommée ("A3:A368")
i = [DD_1]
j = [DF_1]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD_1 = Heures début des horaires normaux
'HF_1 = Heures fin des horaires normaux
Cell(jour, 4).Value = [HD_1]
Cell(jour, 5).Value = [HF_1]
End If
Next
Application.ScreenUpdating = True
End Sub
Sub spécifiques()
Application.ScreenUpdating = False
'DD correpond à la date début des horaires spécifiques
'DF correspond à la date fin des horaires spécifiques
'Détail correspond à la zone nommée ("A3:A368")
i = [DD]
j = [DF]
r = [Détail]
For Each Cell In [Détail]
If Cell > i And Cell <= j + 1 Then
'HD = Heures début des horaires spécifiques
'HF = Heures fin des horaires spécifiques
Cell(jour, 10).Value = [HD]
Cell(jour, 11).Value = [HFIN]
End If
Next
Application.ScreenUpdating = True
End Sub
"Michel Gaboly" a écrit dans le message de
news:Bonhour,
Tu peux utiliser la commande "Atteindre..." du menu "Edition" (rac-
courci clavier F5, sur Mac commme sous Windows).
Si tu nommes ("Insertion, Noms, Définir...") certaines cellules ou
plages (groupes de cellules), correspondant aux titres, aux totaux,
aux paramètres essentiels, la touche F5 te permettra de te déplacer
très facilement.
En outre, les noms sont utilsables dans les formules, ce qui en amé-
liore grandement la lisibilité.Bonjour à tous,
J'ai un tableau de 500 lignes
Quelqu'un aurait-il une solution afin que je m'y déplace plus
facilement
àl'aide d'une boite de dialogue ou autre
Merci
Pascal
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
