Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBA utilisation de variable

VBA utilisation de variable

3 réponses
Avatar
martine
je tente de passer =E0 une proc=E9dure VB le code suivant

dim nuligA as long
dim nuligde as long

If valcel =3D "" Then
ActiveCell.Offset(-1, 0).Activate
i =3D i - 1
Else
nuligA =3D ActiveCell.Row
valpre =3D ActiveCell.Offset(-1, 0).Value
If valpre =3D "" Then
nuligde =3D ActiveCell.Row
Else
Do While valpre <> ""
ActiveCell.Offset(-1, 0).Activate
valpre =3D ActiveCell.Offset(-1, 0).Value
x =3D x + 1
Loop
nuligde =3D ActiveCell.Row

=20
End If
i =3D i - x
Rows(nuligde:nuliga).Select
L=E0 je r=E9cup=E8re une erreur de syntaxe =E0 la compilation. En=20
revanche, si je fais :
rows(nuligde).select ou rows(nuliga).select aucun probl=E8me=20

quelqu'un a-t-il une id=E9e ???

Merci d'avance...
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ellimac
Bonjour,


Range(Rows(nuligde), Rows(nuliga)).Select

Camille
-----Message d'origine-----
je tente de passer à une procédure VB le code suivant

dim nuligA as long
dim nuligde as long

If valcel = "" Then
ActiveCell.Offset(-1, 0).Activate
i = i - 1
Else
nuligA = ActiveCell.Row
valpre = ActiveCell.Offset(-1, 0).Value
If valpre = "" Then
nuligde = ActiveCell.Row
Else
Do While valpre <> ""
ActiveCell.Offset(-1, 0).Activate
valpre = ActiveCell.Offset(-1,
0).Value

x = x + 1
Loop
nuligde = ActiveCell.Row


End If
i = i - x
Rows(nuligde:nuliga).Select
Là je récupère une erreur de syntaxe à la compilation. En
revanche, si je fais :
rows(nuligde).select ou rows(nuliga).select aucun
problème


quelqu'un a-t-il une idée ???

Merci d'avance...

.



Avatar
Frédéric Sigonneau
Bonjour,

Rows(nuligde & ":" & nuliga).Select

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


je tente de passer à une procédure VB le code suivant

dim nuligA as long
dim nuligde as long

If valcel = "" Then
ActiveCell.Offset(-1, 0).Activate
i = i - 1
Else
nuligA = ActiveCell.Row
valpre = ActiveCell.Offset(-1, 0).Value
If valpre = "" Then
nuligde = ActiveCell.Row
Else
Do While valpre <> ""
ActiveCell.Offset(-1, 0).Activate
valpre = ActiveCell.Offset(-1, 0).Value
x = x + 1
Loop
nuligde = ActiveCell.Row


End If
i = i - x
Rows(nuligde:nuliga).Select
Là je récupère une erreur de syntaxe à la compilation. En
revanche, si je fais :
rows(nuligde).select ou rows(nuliga).select aucun problème

quelqu'un a-t-il une idée ???

Merci d'avance...


Avatar
Martine
Super les 2 versions marchent.

Merci beaucoup...
-----Message d'origine-----
je tente de passer à une procédure VB le code suivant

dim nuligA as long
dim nuligde as long

If valcel = "" Then
ActiveCell.Offset(-1, 0).Activate
i = i - 1
Else
nuligA = ActiveCell.Row
valpre = ActiveCell.Offset(-1, 0).Value
If valpre = "" Then
nuligde = ActiveCell.Row
Else
Do While valpre <> ""
ActiveCell.Offset(-1, 0).Activate
valpre = ActiveCell.Offset(-1,
0).Value

x = x + 1
Loop
nuligde = ActiveCell.Row


End If
i = i - x
Rows(nuligde:nuliga).Select
Là je récupère une erreur de syntaxe à la compilation. En
revanche, si je fais :
rows(nuligde).select ou rows(nuliga).select aucun
problème


quelqu'un a-t-il une idée ???

Merci d'avance...

.