Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
Salut gaston,
Pas testé, mais essaye ceci :
range(zoneST("G r")).EntireRow.Delete
A+
--
Nicolas B.Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
Salut gaston,
Pas testé, mais essaye ceci :
range(zoneST("G r")).EntireRow.Delete
A+
--
Nicolas B.
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
Salut gaston,
Pas testé, mais essaye ceci :
range(zoneST("G r")).EntireRow.Delete
A+
--
Nicolas B.Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
-----Message d'origine-----
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction
d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite
cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie
pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction
d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite
cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie
pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction
d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite
cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie
pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
normal, il ne faut pas inclure le r dans le string donc
zoneST("G r").EntireRow.Delete est mauvais, il faut écrire
zoneST("G" & r).EntireRow.Delete
r représente bien la variable et non pas le caractère "r"-----Message d'origine-----
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction
d'uneautre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite
cellulede la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie
pasG1 ou G2 etc mais... G r !
.
.
-----Message d'origine-----
normal, il ne faut pas inclure le r dans le string donc
zoneST("G r").EntireRow.Delete est mauvais, il faut écrire
zoneST("G" & r).EntireRow.Delete
r représente bien la variable et non pas le caractère "r"
-----Message d'origine-----
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction
d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite
cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie
pas
G1 ou G2 etc mais... G r !
.
.
-----Message d'origine-----
normal, il ne faut pas inclure le r dans le string donc
zoneST("G r").EntireRow.Delete est mauvais, il faut écrire
zoneST("G" & r).EntireRow.Delete
r représente bien la variable et non pas le caractère "r"-----Message d'origine-----
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction
d'uneautre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite
cellulede la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie
pasG1 ou G2 etc mais... G r !
.
.
-----Message d'origine-----
Bonjour Gaston,
Voici un exemple de syntaxe qui doit convenir
Sub bouge()
r = ActiveCell.Row + 2
Range("g" & r).Select
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"gaston" a écrit
dans le message de
news:1b13901c41f11$92c22a80$
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour Gaston,
Voici un exemple de syntaxe qui doit convenir
Sub bouge()
r = ActiveCell.Row + 2
Range("g" & r).Select
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:1b13901c41f11$92c22a80$a101280a@phx.gbl...
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour Gaston,
Voici un exemple de syntaxe qui doit convenir
Sub bouge()
r = ActiveCell.Row + 2
Range("g" & r).Select
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"gaston" a écrit
dans le message de
news:1b13901c41f11$92c22a80$
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour Gaston,
Voici un exemple de syntaxe qui doit convenir
Sub bouge()
r = ActiveCell.Row + 2
Range("g" & r).Select
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"gaston" a écrit
dans le message de
news:1b13901c41f11$92c22a80$
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour Gaston,
Voici un exemple de syntaxe qui doit convenir
Sub bouge()
r = ActiveCell.Row + 2
Range("g" & r).Select
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:1b13901c41f11$92c22a80$a101280a@phx.gbl...
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
.
-----Message d'origine-----
Bonjour Gaston,
Voici un exemple de syntaxe qui doit convenir
Sub bouge()
r = ActiveCell.Row + 2
Range("g" & r).Select
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"gaston" a écrit
dans le message de
news:1b13901c41f11$92c22a80$
Bonjour les as de vba !
je cherche à résoudre un problème depuis plusieurs jours
et je tourne en rond:
est-il possible de définir une variable en fonction d'une
autre variable ?
par exemple je voudrais exprimer l'adresse d'une cellule
dont je connais la colonne G et le numero de ligne est
défini par une variable r
pour rajouter à mon problème, j'utilise une fonction
personnalisée que j'appelle zoneST(x) (ou x est une
variable aussi !) et qui doit s'appliquer à ladite cellule
de la colonne G
vous me suivez...?
ci-après là où j'en suis...et qui ne fonctionne pas
Function zoneST(x) As Range
' définit la variable qui indique la plage concernée par
la formule sous.total
Dim f As String
f = Range(x).Formula
' extraire la plage en question
Set zoneST = Range(Mid(f, InStr(f, ",") + 1, Len(f) -
InStr(f, ",") - 1))
End Function
Sub efface()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
'balaye les cellules de la plage
For r = Range("G:G").Find("*", [G1], , , xlByRows,
xlPrevious).Row To 1 Step -1
If Cells(r, 7) = 0 Then _
zoneST("G r").EntireRow.Delete
Next r
End Sub
c'est le zoneST("G r") qui coince car cela ne renvoie pas
G1 ou G2 etc mais... G r !
.