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 selectionner zone

selectionner zone

2 réponses
Avatar
Emcy
bonjour,

pourquoi ça marche pas ?

Dim FeuilErreur As Object
Dim MaZone As Object

PointeurLigneErreur = 2
Set FeuilErreur = Sheets("Erreurs")
Set MaZone = FeuilErreur.Range(Cells(PointeurLigneErreur, 1),
Cells(PointeurLigneErreur, 2))
Signaler un problème avec ce contenu

2 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
Emcy
ça bug uniquement si la feuille "Erreurs" n'est pas selectionnée...

"Emcy" a écrit dans le message de news:

bonjour,

pourquoi ça marche pas ?

Dim FeuilErreur As Object
Dim MaZone As Object

PointeurLigneErreur = 2
Set FeuilErreur = Sheets("Erreurs")
Set MaZone = FeuilErreur.Range(Cells(PointeurLigneErreur, 1),
Cells(PointeurLigneErreur, 2))





Avatar
AV
Sub zzz()
laL = 2: x = "Erreurs"
'exemple pour sélection
'Application.Goto Reference:=x & "!" & Range(Cells(laL, 1), Cells(laL,
2)).Address(1, 1, 2)
'exemple pour comptage
MsgBox Application.CountA(Range(x & "!" & Range(Cells(laL, 1), Cells(laL,
2)).Address))
End Sub


AV