Désolé pour toi, mais il n'existe pas de façon simple de redéfinir un
"automatiquement" suite à une suppression d'une ou plusieurs lignes de ce
range. Il faut recréer l'ensemble tel que tu le fais à chaque fois... et
pas du gâteau !
Ta façon de définir un range(....) ne peut pas comporter un string plus de
255 caractères.
"Michel" a écrit dans le message de news:
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Désolé pour toi, mais il n'existe pas de façon simple de redéfinir un
"automatiquement" suite à une suppression d'une ou plusieurs lignes de ce
range. Il faut recréer l'ensemble tel que tu le fais à chaque fois... et
pas du gâteau !
Ta façon de définir un range(....) ne peut pas comporter un string plus de
255 caractères.
"Michel" <comptabilite@olcoven.fr> a écrit dans le message de news:
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Désolé pour toi, mais il n'existe pas de façon simple de redéfinir un
"automatiquement" suite à une suppression d'une ou plusieurs lignes de ce
range. Il faut recréer l'ensemble tel que tu le fais à chaque fois... et
pas du gâteau !
Ta façon de définir un range(....) ne peut pas comporter un string plus de
255 caractères.
"Michel" a écrit dans le message de news:
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
Range("A4:L34,A39:L98,A104:L111,A116:L136,A141:L167,A172:L174,A179:L181,A186
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
Range("A4:L34,A39:L98,A104:L111,A116:L136,A141:L167,A172:L174,A179:L181,A186
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
Range("A4:L34,A39:L98,A104:L111,A116:L136,A141:L167,A172:L174,A179:L181,A186
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Salut Michel
Une solution peut être pas très élégante mais efficace consiste à baliser
tes zones de sélection par un caractère
J'ai utilisé la colonne A et le chiffre 1 comme balise avec ce code :
Columns("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas,
LookAt _
:=xlPart).Activate
A = ActiveCell.Row
Départ = ActiveCell.Address
Lettre = "A"
Séparateur = ":"
For i = 1 To Range("A65535").End(xlUp).Row
Chaine = Chaine & Lettre & ActiveCell.Row & Séparateur
If Lettre = "A" Then
Lettre = "L"
Séparateur = ","
Else
Lettre = "A"
Séparateur = ":"
End If
Columns("A:A").FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine, 1, Len(Chaine) - 1)).Select
Tu peux ainsi rajouter autant de lignes que tu souhaites la sélection se
fera en fonction des balises sur la colonne A et L
On peux changer les colonnes prises dans la sélection (ici A et L), la
colonne portant les balises et le caractére utilisé (ici 1)
Sur ce lien un exemple que tu peux tester
http://www.cijoint.fr/cjlink.php?file=cj200807/cijUQMCZYf.xls
Fais des essais et dis moi !!!!
"Michel" wrote:
> Bonjour à tout le monde,
>
> Voici ma petite question :
>
> est-il possible de modifier une sélection de plage à volonté. J'ai écrit
> ceci :
>
>
> :L188"). _
> Select
>
> Lorsque que j'insère ou supprime des lignes dans cette sélection, je
> voudrais que cela soit mis à jour dans ce code automatiquement.
> avec des variables?)
>
> Merci à tout le monde
>
> --
> Michel TAF
>
>
>
Salut Michel
Une solution peut être pas très élégante mais efficace consiste à baliser
tes zones de sélection par un caractère
J'ai utilisé la colonne A et le chiffre 1 comme balise avec ce code :
Columns("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas,
LookAt _
:=xlPart).Activate
A = ActiveCell.Row
Départ = ActiveCell.Address
Lettre = "A"
Séparateur = ":"
For i = 1 To Range("A65535").End(xlUp).Row
Chaine = Chaine & Lettre & ActiveCell.Row & Séparateur
If Lettre = "A" Then
Lettre = "L"
Séparateur = ","
Else
Lettre = "A"
Séparateur = ":"
End If
Columns("A:A").FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine, 1, Len(Chaine) - 1)).Select
Tu peux ainsi rajouter autant de lignes que tu souhaites la sélection se
fera en fonction des balises sur la colonne A et L
On peux changer les colonnes prises dans la sélection (ici A et L), la
colonne portant les balises et le caractére utilisé (ici 1)
Sur ce lien un exemple que tu peux tester
http://www.cijoint.fr/cjlink.php?file=cj200807/cijUQMCZYf.xls
Fais des essais et dis moi !!!!
"Michel" wrote:
> Bonjour à tout le monde,
>
> Voici ma petite question :
>
> est-il possible de modifier une sélection de plage à volonté. J'ai écrit
> ceci :
>
>
> :L188"). _
> Select
>
> Lorsque que j'insère ou supprime des lignes dans cette sélection, je
> voudrais que cela soit mis à jour dans ce code automatiquement.
> avec des variables?)
>
> Merci à tout le monde
>
> --
> Michel TAF
>
>
>
Salut Michel
Une solution peut être pas très élégante mais efficace consiste à baliser
tes zones de sélection par un caractère
J'ai utilisé la colonne A et le chiffre 1 comme balise avec ce code :
Columns("A:A").Find(What:="1", After:=Range("A1"), LookIn:=xlFormulas,
LookAt _
:=xlPart).Activate
A = ActiveCell.Row
Départ = ActiveCell.Address
Lettre = "A"
Séparateur = ":"
For i = 1 To Range("A65535").End(xlUp).Row
Chaine = Chaine & Lettre & ActiveCell.Row & Séparateur
If Lettre = "A" Then
Lettre = "L"
Séparateur = ","
Else
Lettre = "A"
Séparateur = ":"
End If
Columns("A:A").FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine, 1, Len(Chaine) - 1)).Select
Tu peux ainsi rajouter autant de lignes que tu souhaites la sélection se
fera en fonction des balises sur la colonne A et L
On peux changer les colonnes prises dans la sélection (ici A et L), la
colonne portant les balises et le caractére utilisé (ici 1)
Sur ce lien un exemple que tu peux tester
http://www.cijoint.fr/cjlink.php?file=cj200807/cijUQMCZYf.xls
Fais des essais et dis moi !!!!
"Michel" wrote:
> Bonjour à tout le monde,
>
> Voici ma petite question :
>
> est-il possible de modifier une sélection de plage à volonté. J'ai écrit
> ceci :
>
>
> :L188"). _
> Select
>
> Lorsque que j'insère ou supprime des lignes dans cette sélection, je
> voudrais que cela soit mis à jour dans ce code automatiquement.
> avec des variables?)
>
> Merci à tout le monde
>
> --
> Michel TAF
>
>
>
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
Range("A4:L34,A39:L98,A104:L111,A116:L136,A141:L167,A172:L174,A179:L181,A186
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
Range("A4:L34,A39:L98,A104:L111,A116:L136,A141:L167,A172:L174,A179:L181,A186
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Bonjour à tout le monde,
Voici ma petite question :
est-il possible de modifier une sélection de plage à volonté. J'ai écrit
ceci :
Range("A4:L34,A39:L98,A104:L111,A116:L136,A141:L167,A172:L174,A179:L181,A186
:L188"). _
Select
Lorsque que j'insère ou supprime des lignes dans cette sélection, je
voudrais que cela soit mis à jour dans ce code automatiquement. (Peut-être
avec des variables?)
Merci à tout le monde
--
Michel TAF
Rebonjour Michel
Heureux que celà te convienne
Je te propose cette version améliorée intégrant ta dernière demande
les ligne vide de la sélection :
Colonne1 = "A"
Colonne2 = "L"
Balise = "1"
Colonne3 = "A"
Lettre = Colonne1
Columns(Colonne3 & ":" & Colonne3).Find(What:ºlise, After:=Range("A1"),
LookIn:=xlFormulas, LookAt _
:=xlPart).Activate
A = ActiveCell.Row
Départ = ActiveCell.Address
Séparateur = ":"
For i = 1 To Range("A65535").End(xlUp).Row
Chaine1 = Chaine1 & Lettre & ActiveCell.Row & Séparateur
Chaine2 = Chaine2 & "A" & ActiveCell.Row & Séparateur
If Séparateur = ":" Then
Lettre = Colonne2
Séparateur = ","
Else
Lettre = Colonne1
Séparateur = ":"
End If
Columns(Colonne3 & ":" & Colonne3).FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine2, 1, Len(Chaine2) - 1)).Select
Selection.Find(What:="", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart).Activate
Départ = ActiveCell.Address
For j = 1 To Range("A65535").End(xlUp).Row
If Range("A" & ActiveCell.Row).End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address And Range("A" & ActiveCell.Row) = "" And
ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Hidden = True
End If
Selection.FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine1, 1, Len(Chaine1) - 1)).Select
Je t'ai mis en début de code les variables à actualiser en fonction de tes
contraintes :
Colonne1 et Colonne2 les colonnes entrant dans la sélection souhaitée
Colonne3 la colonne où tu souhaites mettre la balise
Balise le caractère que tu souhaites utilisé
Sur ce lien un exemple que tu peux tester :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij1FqURdZ.xls
Fais des essais et dis moi !!!!
Rebonjour Michel
Heureux que celà te convienne
Je te propose cette version améliorée intégrant ta dernière demande
les ligne vide de la sélection :
Colonne1 = "A"
Colonne2 = "L"
Balise = "1"
Colonne3 = "A"
Lettre = Colonne1
Columns(Colonne3 & ":" & Colonne3).Find(What:ºlise, After:=Range("A1"),
LookIn:=xlFormulas, LookAt _
:=xlPart).Activate
A = ActiveCell.Row
Départ = ActiveCell.Address
Séparateur = ":"
For i = 1 To Range("A65535").End(xlUp).Row
Chaine1 = Chaine1 & Lettre & ActiveCell.Row & Séparateur
Chaine2 = Chaine2 & "A" & ActiveCell.Row & Séparateur
If Séparateur = ":" Then
Lettre = Colonne2
Séparateur = ","
Else
Lettre = Colonne1
Séparateur = ":"
End If
Columns(Colonne3 & ":" & Colonne3).FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine2, 1, Len(Chaine2) - 1)).Select
Selection.Find(What:="", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart).Activate
Départ = ActiveCell.Address
For j = 1 To Range("A65535").End(xlUp).Row
If Range("A" & ActiveCell.Row).End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address And Range("A" & ActiveCell.Row) = "" And
ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Hidden = True
End If
Selection.FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine1, 1, Len(Chaine1) - 1)).Select
Je t'ai mis en début de code les variables à actualiser en fonction de tes
contraintes :
Colonne1 et Colonne2 les colonnes entrant dans la sélection souhaitée
Colonne3 la colonne où tu souhaites mettre la balise
Balise le caractère que tu souhaites utilisé
Sur ce lien un exemple que tu peux tester :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij1FqURdZ.xls
Fais des essais et dis moi !!!!
Rebonjour Michel
Heureux que celà te convienne
Je te propose cette version améliorée intégrant ta dernière demande
les ligne vide de la sélection :
Colonne1 = "A"
Colonne2 = "L"
Balise = "1"
Colonne3 = "A"
Lettre = Colonne1
Columns(Colonne3 & ":" & Colonne3).Find(What:ºlise, After:=Range("A1"),
LookIn:=xlFormulas, LookAt _
:=xlPart).Activate
A = ActiveCell.Row
Départ = ActiveCell.Address
Séparateur = ":"
For i = 1 To Range("A65535").End(xlUp).Row
Chaine1 = Chaine1 & Lettre & ActiveCell.Row & Séparateur
Chaine2 = Chaine2 & "A" & ActiveCell.Row & Séparateur
If Séparateur = ":" Then
Lettre = Colonne2
Séparateur = ","
Else
Lettre = Colonne1
Séparateur = ":"
End If
Columns(Colonne3 & ":" & Colonne3).FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine2, 1, Len(Chaine2) - 1)).Select
Selection.Find(What:="", After:¬tiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart).Activate
Départ = ActiveCell.Address
For j = 1 To Range("A65535").End(xlUp).Row
If Range("A" & ActiveCell.Row).End(xlToRight).Address = Range("IV" &
ActiveCell.Row).Address And Range("A" & ActiveCell.Row) = "" And
ActiveCell.Row) = "" Then
ActiveCell.EntireRow.Hidden = True
End If
Selection.FindNext(After:¬tiveCell).Activate
If ActiveCell.Address = Départ Then
Exit For
End If
Next
Range(Mid(Chaine1, 1, Len(Chaine1) - 1)).Select
Je t'ai mis en début de code les variables à actualiser en fonction de tes
contraintes :
Colonne1 et Colonne2 les colonnes entrant dans la sélection souhaitée
Colonne3 la colonne où tu souhaites mettre la balise
Balise le caractère que tu souhaites utilisé
Sur ce lien un exemple que tu peux tester :
http://www.cijoint.fr/cjlink.php?file=cj200807/cij1FqURdZ.xls
Fais des essais et dis moi !!!!
Rebonjours Michel
En relisant je m'aperçoit d'une bévue sur ces 2 corrections :
For i = 1 To Range(Colonne3 "65535").End(xlUp).Row
For j = 1 To Range(Colonne "65535").End(xlUp).Row
j'ai oublié le "&" il faut mettre :
For i = 1 To Range(Colonne3 & "65535").End(xlUp).Row
For j = 1 To Range(Colonne3 & "65535").End(xlUp).Row
La fatigue du soir peut être
Encore mille excuses !!!!
Rebonjours Michel
En relisant je m'aperçoit d'une bévue sur ces 2 corrections :
For i = 1 To Range(Colonne3 "65535").End(xlUp).Row
For j = 1 To Range(Colonne "65535").End(xlUp).Row
j'ai oublié le "&" il faut mettre :
For i = 1 To Range(Colonne3 & "65535").End(xlUp).Row
For j = 1 To Range(Colonne3 & "65535").End(xlUp).Row
La fatigue du soir peut être
Encore mille excuses !!!!
Rebonjours Michel
En relisant je m'aperçoit d'une bévue sur ces 2 corrections :
For i = 1 To Range(Colonne3 "65535").End(xlUp).Row
For j = 1 To Range(Colonne "65535").End(xlUp).Row
j'ai oublié le "&" il faut mettre :
For i = 1 To Range(Colonne3 & "65535").End(xlUp).Row
For j = 1 To Range(Colonne3 & "65535").End(xlUp).Row
La fatigue du soir peut être
Encore mille excuses !!!!
Rebonjours Michel
En relisant je m'aperçoit d'une bévue sur ces 2 corrections :
For i = 1 To Range(Colonne3 "65535").End(xlUp).Row
For j = 1 To Range(Colonne "65535").End(xlUp).Row
j'ai oublié le "&" il faut mettre :
For i = 1 To Range(Colonne3 & "65535").End(xlUp).Row
For j = 1 To Range(Colonne3 & "65535").End(xlUp).Row
La fatigue du soir peut être
Encore mille excuses !!!!
Rebonjours Michel
En relisant je m'aperçoit d'une bévue sur ces 2 corrections :
For i = 1 To Range(Colonne3 "65535").End(xlUp).Row
For j = 1 To Range(Colonne "65535").End(xlUp).Row
j'ai oublié le "&" il faut mettre :
For i = 1 To Range(Colonne3 & "65535").End(xlUp).Row
For j = 1 To Range(Colonne3 & "65535").End(xlUp).Row
La fatigue du soir peut être
Encore mille excuses !!!!
Rebonjours Michel
En relisant je m'aperçoit d'une bévue sur ces 2 corrections :
For i = 1 To Range(Colonne3 "65535").End(xlUp).Row
For j = 1 To Range(Colonne "65535").End(xlUp).Row
j'ai oublié le "&" il faut mettre :
For i = 1 To Range(Colonne3 & "65535").End(xlUp).Row
For j = 1 To Range(Colonne3 & "65535").End(xlUp).Row
La fatigue du soir peut être
Encore mille excuses !!!!