Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message denews:1186755563.7
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupé rer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message denews:1186755563.7 74072.85840@x40g2000prg.googlegroups.com...
On 10 août, 16:03, michel.villa...@gmail.com wrote:
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupé rer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message denews:1186755563.7
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupé rer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message
denews:1186755563.774072.85840@x40g2000prg.googlegroups.com...
On 10 août, 16:03, michel.villa...@gmail.com wrote:
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message denews:1186757895.7
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récup érer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souha ite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des mess ages précédents -
- Afficher le texte des messages précédents -
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message denews:1186757895.7 14996.289650@i13g2000prf.googlegroups.com...
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message
denews:1186755563.774072.85840@x40g2000prg.googlegroups.com...
On 10 août, 16:03, michel.villa...@gmail.com wrote:
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récup érer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souha ite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des mess ages précédents -
- Afficher le texte des messages précédents -
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message denews:1186757895.7
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récup érer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souha ite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des mess ages précédents -
- Afficher le texte des messages précédents -
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message
denews:1186757895.714996.289650@i13g2000prf.googlegroups.com...
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message
denews:1186755563.774072.85840@x40g2000prg.googlegroups.com...
On 10 août, 16:03, michel.villa...@gmail.com wrote:
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Ne disposant pas d'Excel 2007, je NE peux creuser plus loin
Dommage en effet !
--
Philippe.R
a écrit dans le message de
news:
On 10 août, 17:14, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite
récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Il semble que cela ne fonctionne pas sous Excel 2007, j'ai une erreur
d'éxecution "13"
incompatibilité de type
la ligne :
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
est mise en cause.
Dommage ...
Ne disposant pas d'Excel 2007, je NE peux creuser plus loin
Dommage en effet !
--
Philippe.R
<michel.villaume@gmail.com> a écrit dans le message de
news:1186761380.252598.75790@d30g2000prg.googlegroups.com...
On 10 août, 17:14, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:
Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message
denews:1186757895.714996.289650@i13g2000prf.googlegroups.com...
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:
Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
<michel.villa...@gmail.com> a écrit dans le message
denews:1186755563.774072.85840@x40g2000prg.googlegroups.com...
On 10 août, 16:03, michel.villa...@gmail.com wrote:
Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite
récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Il semble que cela ne fonctionne pas sous Excel 2007, j'ai une erreur
d'éxecution "13"
incompatibilité de type
la ligne :
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
est mise en cause.
Dommage ...
Ne disposant pas d'Excel 2007, je NE peux creuser plus loin
Dommage en effet !
--
Philippe.R
a écrit dans le message de
news:
On 10 août, 17:14, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Re,
Avec ce tandem :
Dans un module ordinaire :
Sub rec_ss_vides()
'MPFE le 10/08/2007
Application.ScreenUpdating = False
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
Application.ScreenUpdating = False
End Sub
Dans le module de feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
dercol = Range("iv" & Target.Row).End(xlToLeft)
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
rec_ss_vides
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:47, "Philippe.R" <AS_rauphil_at_wanadoo.fr> wrote:Bonsoir,
Ceci convient il ?
Sub rec_ss_vides()
'On sélectionne préalablement la plage à traiter
For Each c In Selection
If c.Value = "" Then
c.Delete
End If
Next c
End Sub
--
Avec plaisir
Philippe.R
a écrit dans le message
denews:
On 10 août, 16:03, wrote:Bonjour,
Dans un tableau excel, j'ai une suite de valeur, je souhaite
récupérer
ces valeurs dans un autre tableau sans les cellules vides.
Par exemple si j'ai :
A B C D E F G H A B C D
E F G H
1 D D 3 D D Je souhaite obtenir : 1 D D 3 D D
Est ce possible ???
Merci d'avance.
la mis en en forme de mon message n'a pas été respectée, je souhaite
donc obtenir les valeurs de ligne sans les cellules vides. (D D 3 D
D) = (DD3DD)
Ouais c'est une bonne piste maintenant comment puis je rendre
l'execution de la macro automatique, de manière à ce qu'elle se lance
à chaque fois qu'une valeur est modifiée ?- Masquer le texte des messages
précédents -
- Afficher le texte des messages précédents -
Il semble que cela ne fonctionne pas sous Excel 2007, j'ai une erreur
d'éxecution "13"
incompatibilité de type
la ligne :
Range(Cells(Target.Row, 1), Cells(Target.Row, dercol)).Select
est mise en cause.
Dommage ...