Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le biais du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d' anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans "Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3 le
trie de <Country Data> est interdit alors que si je selectionne seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le biais du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d' anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans "Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3 le
trie de <Country Data> est interdit alors que si je selectionne seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le biais du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d' anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans "Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3 le
trie de <Country Data> est interdit alors que si je selectionne seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
bealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message news:
eMXAp8l4DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
bealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
bealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message news:
eMXAp8l4DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
bealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivantepour interdir le trie d'un tableau si les cellules de la plage d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msftngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le biais
dumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:ekTLHmm4DHA.2764@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message news:
eMXAp8l4DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont bien
reprises par la plage balayée par la macro. As-tu effacé les anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée, as-tu
revudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivantepour interdir le trie d'un tableau si les cellules de la plage d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msftngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started scheduling
appointments, you will have to leave the coutry at the end of the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le biais
dumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company Appointments'!A3
letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de <Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont
bien
reprises par la plage balayée par la macro. As-tu effacé les
anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-tu
revudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivantepour interdir le trie d'un tableau si les cellules de la plage d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
scheduling
appointments, you will have to leave the coutry at the end of the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules
de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le
biais
dumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas
puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec
les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3
letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:OEYDm7n4DHA.2700@tk2msftngp13.phx.gbl...
Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:ekTLHmm4DHA.2764@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont
bien
reprises par la plage balayée par la macro. As-tu effacé les
anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message news:
eMXAp8l4DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules
de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le
biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas
puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec
les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont
bien
reprises par la plage balayée par la macro. As-tu effacé les
anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-tu
revudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivantepour interdir le trie d'un tableau si les cellules de la plage d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
scheduling
appointments, you will have to leave the coutry at the end of the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules
de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"
sheetet que je selectionne dans "Company Appointments" sheet, par le
biais
dumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas
puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec
les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3
letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<Country
Data>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonsoir Philippe et merci.
Avec ta proposition je suis maintenant dans la situation inverse c'est à
dire que le trie ne s'effectue pas meme lorsque les cellules du range de la
feuille sont vides.
Est ce CountA comptabilise aussi les formules ou seulement les valeurs.
parce que mon range est plein de formules.
Sinceres salutations.
Christophe
"Philippe.R" a écrit dans le message de
news:Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonctionNBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont
bienreprises par la plage balayée par la macro. As-tu effacé les
anciennes etréécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-turevudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivantepour interdir le trie d'un tableau si les cellules de la plage d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msftngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
schedulingappointments, you will have to leave the coutry at the end of the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo,
_OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules
de<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"sheetet que je selectionne dans "Company Appointments" sheet, par le
biaisdumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas
puisque maplage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec
lesnouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<CountryData>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonsoir Philippe et merci.
Avec ta proposition je suis maintenant dans la situation inverse c'est à
dire que le trie ne s'effectue pas meme lorsque les cellules du range de la
feuille sont vides.
Est ce CountA comptabilise aussi les formules ou seulement les valeurs.
parce que mon range est plein de formules.
Sinceres salutations.
Christophe
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eCe79Cp4DHA.2344@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:OEYDm7n4DHA.2700@tk2msftngp13.phx.gbl...
Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:ekTLHmm4DHA.2764@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont
bien
reprises par la plage balayée par la macro. As-tu effacé les
anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message news:
eMXAp8l4DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
scheduling
appointments, you will have to leave the coutry at the end of the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo,
_
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules
de
<Country Appointments> sheet sont choisies par le biais d' un menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le
biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas
puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec
les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Bonsoir Philippe et merci.
Avec ta proposition je suis maintenant dans la situation inverse c'est à
dire que le trie ne s'effectue pas meme lorsque les cellules du range de la
feuille sont vides.
Est ce CountA comptabilise aussi les formules ou seulement les valeurs.
parce que mon range est plein de formules.
Sinceres salutations.
Christophe
"Philippe.R" a écrit dans le message de
news:Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonctionNBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées sont
bienreprises par la plage balayée par la macro. As-tu effacé les
anciennes etréécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-turevudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message news:Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la solution
suivantepour interdir le trie d'un tableau si les cellules de la plage d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msftngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
schedulingappointments, you will have to leave the coutry at the end of the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo,
_OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des cellules
de<Country Appointments> sheet sont choisies par le biais d' un menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"sheetet que je selectionne dans "Company Appointments" sheet, par le
biaisdumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas
puisque maplage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas avec
lesnouvelles. Ceci est d'autant plus étrange que la macro ne fait pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<CountryData>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Re,
CountA est la traduction de NBVAL() et compte donc toutes les cellules non
vides (textes, nombres,
formules)
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Bonsoir Philippe et merci.
Avec ta proposition je suis maintenant dans la situation inverse c'est à
dire que le trie ne s'effectue pas meme lorsque les cellules du range de
la
feuille sont vides.
Est ce CountA comptabilise aussi les formules ou seulement les valeurs.
parce que mon range est plein de formules.
Sinceres salutations.
Christophe
"Philippe.R" a écrit dans le message de
news:Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonctionNBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le
message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées
sont
bienreprises par la plage balayée par la macro. As-tu effacé les
anciennes etréécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la
plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-turevudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message
news:
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la
solution
suivantepour interdir le trie d'un tableau si les cellules de la plage
d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no
appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
schedulingappointments, you will have to leave the coutry at the end of
the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending,
Header:=xlNo,
_OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des
cellules
de<Country Appointments> sheet sont choisies par le biais d' un
menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company
Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"sheetet que je selectionne dans "Company Appointments" sheet, par le
biaisdumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas
puisque maplage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas
avec
lesnouvelles. Ceci est d'autant plus étrange que la macro ne fait
pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si
je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<CountryData>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Re,
CountA est la traduction de NBVAL() et compte donc toutes les cellules non
vides (textes, nombres,
formules)
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:ecd4Fqp4DHA.1292@TK2MSFTNGP11.phx.gbl...
Bonsoir Philippe et merci.
Avec ta proposition je suis maintenant dans la situation inverse c'est à
dire que le trie ne s'effectue pas meme lorsque les cellules du range de
la
feuille sont vides.
Est ce CountA comptabilise aussi les formules ou seulement les valeurs.
parce que mon range est plein de formules.
Sinceres salutations.
Christophe
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:eCe79Cp4DHA.2344@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message de
news:OEYDm7n4DHA.2700@tk2msftngp13.phx.gbl...
Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonction
NBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le
message de
news:ekTLHmm4DHA.2764@TK2MSFTNGP09.phx.gbl...
Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées
sont
bien
reprises par la plage balayée par la macro. As-tu effacé les
anciennes et
réécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la
plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-tu
revu
dans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
NoSpam_j.thiernesse@skynet.be
"Christophe Joly" <cjoly@bigfoot.com> a écrit dans le message
news:
eMXAp8l4DHA.1504@TK2MSFTNGP12.phx.gbl...
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la
solution
suivante
pour interdir le trie d'un tableau si les cellules de la plage
d'un
autre
tableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no
appointments
must
be
already scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
scheduling
appointments, you will have to leave the coutry at the end of
the
list.",
vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending,
Header:=xlNo,
_
OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des
cellules
de
<Country Appointments> sheet sont choisies par le biais d' un
menu
déroulant
qui reprend le nom des sociétés contenues une feuille "Company
Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"
sheet
et que je selectionne dans "Company Appointments" sheet, par le
biais
du
menu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)
que je viens de rajouter dans "Company Data" sheet, le trie dans
"Country
Data' est possible alors que cela ne devrait pas etre le cas
puisque ma
plage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas
avec
les
nouvelles. Ceci est d'autant plus étrange que la macro ne fait
pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.
Ce
n'est pas non plus une question de plage puisque par exemple si
je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3
le
trie de <Country Data> est interdit alors que si je selectionne
seulement
une "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<Country
Data>
est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe
Re,
CountA est la traduction de NBVAL() et compte donc toutes les cellules non
vides (textes, nombres,
formules)
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Bonsoir Philippe et merci.
Avec ta proposition je suis maintenant dans la situation inverse c'est à
dire que le trie ne s'effectue pas meme lorsque les cellules du range de
la
feuille sont vides.
Est ce CountA comptabilise aussi les formules ou seulement les valeurs.
parce que mon range est plein de formules.
Sinceres salutations.
Christophe
"Philippe.R" a écrit dans le message de
news:Bonjour Christophe,
Peut être quelque chose sur cette base :
Sub des_sous()
Dim combien As Long
combien = Application.WorksheetFunction.CountA([Appointments])
If combien <> 0 Then
MsgBox "Cela fait : " & combien, vbInformation, "Combien !?!"
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL97 / XL2002
"Christophe Joly" a écrit dans le message de
news:Rebonjour:
En lieu et place de Application.Sum j'aimerai essayer d'utiliser la
fonctionNBVAL en traduisant l'idee suivante.
SI NBVAL dans range [Appointments] est <>0 then Msgbox Else...
Est ce que c'est enviseageable et si oui comment.
Merci
Christophe
"Jacquouille" a écrit dans le
message de
news:Bonjour Christophe
Ton truc, c'est un peu du Chinois pour moi, surtout avec du Grand
Breton....-)
As-tu vérifié que tes nouvelles compagnies ou sociétés entrées
sont
bienreprises par la plage balayée par la macro. As-tu effacé les
anciennes etréécrit dessus, ou bien as-tu allongé la liste. dans ce cas, la
plage
balayée devrait être revue à la hausse (comme les zimpo).
Idem pour ta liste déroulante et déroutante, si tu l'as allongée,
as-turevudans le menu/autoriser liste si la plage correspondait?
Bonne chance
Jacques, très peu expert en Chinoiseries.
-
Jacquouille conseille : http://www.excelabo.net
"Christophe Joly" a écrit dans le message
news:
Bonjour:
Le 20 decembre dernier Alain et Philippe me proposait la
solution
suivantepour interdir le trie d'un tableau si les cellules de la plage
d'un
autretableau n'etait pas vide.
http://groups.google.fr/groups?hl=fr&lr=&ie=UTF-8&threadm=OvhgAh0xDHA.4064%4
0tk2msftngp13.phx.gbl&rnum=5&prev=/groups%3Fq%3Dcjoly%2540bigfoot.com%26hl%3
Dfr%26lr%3D%26ie%3DUTF-8%26scoring%3Dd%26selm%3DOvhgAh0xDHA.4064%2540tk2msft
ngp13.phx.gbl%26rnum%3D5
Ci-dessous la macro
Sub SortCountryData()
'MPFE le 20/12/2003
ActiveSheet.Unprotect Password:="showtime"
Dim VoP As Long
VoP = Application.Sum([Appointments])
If VoP <> 0 Then
MsgBox "To sort the <Country Data> sheet by country, no
appointments
mustbealready scheduled in the <Country Appointments> sheet." _
& " If you would like to add a country after you have started
schedulingappointments, you will have to leave the coutry at the end of
the
list.",vbInformation, "SORTING IS IMPOSSIBLE..."
Exit Sub
Else
DerniereLigneColA = Range("A65536").End(xlUp).Row
Sheets("Country Data").Range("A4:Z" & DerniereLigneColA).Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending,
Header:=xlNo,
_OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
ActiveSheet.Protect Password:="showtime"
End If
End Sub
Cela fonctionne parfaitement mais voila ... Les valeurs des
cellules
de<Country Appointments> sheet sont choisies par le biais d' un
menu
déroulantqui reprend le nom des sociétés contenues une feuille "Company
Data"
sheet.Si j'efface mes anciennes sélections dans "Company
Appointments"sheetet que je selectionne dans "Company Appointments" sheet, par le
biaisdumenu déroulant, une ou plusieurs nouvelles entreprises (pas d'
anciennes)que je viens de rajouter dans "Company Data" sheet, le trie dans
"CountryData' est possible alors que cela ne devrait pas etre le cas
puisque maplage [Appointments] n'est pas vide.
Pour info le nom [Appointments] fait référence à (='Country
Appointments'!$C$3:$CX$115)
Pourquoi cela fonctionne avec les "anciennes données" mais pas
avec
lesnouvelles. Ceci est d'autant plus étrange que la macro ne fait
pas
référence à la feuille "Company Data" qui contient ces nouvelles
valeurs.Cen'est pas non plus une question de plage puisque par exemple si
je
selectionne seulement une ancienne donnée en 'Company
Appointments'!A3letrie de <Country Data> est interdit alors que si je selectionne
seulementune "nouvelle donnée" en 'Company Appointments'!A3 le trie de
<CountryData>est autorisé ce qui est incompréhensible.
Merci pour votre aide et suggestions.
Christophe