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 Macro fonctionnant comme une routine indépendante du contexte

Macro fonctionnant comme une routine indépendante du contexte

3 réponses
Avatar
Olgga
Bonjour,

Je cherche à créer une macro effectuant ce travail :
- comparaison du contenu d'une cellule avec le contenu de celle directement
au-dessus
- si égalité masquer la ligne contenant cette cellule
- si pas égalité stopper la macro

Je voudrais que cette macro fonctionne quelque soit la cellule d'où la macro
est lancée,
c'est à dire comme une routine indépendante du nom ou des coordonnées des
cellules.

Pouvez-vous aider le pauvre débutant en Visual basic que je suis ?
Merci à tous.
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
lSteph
Bonsoir Olggga,

Sub masqit()
With ActiveCell
If .Row = 1 Then Exit Sub
If .Value = .Offset(-1, 0) Then
Rows(.Row).Hidden = True
End If
End With
End Sub

'lSteph


"Olgga" a écrit dans le message de news:
%
Bonjour,

Je cherche à créer une macro effectuant ce travail :
- comparaison du contenu d'une cellule avec le contenu de celle
directement
au-dessus
- si égalité masquer la ligne contenant cette cellule
- si pas égalité stopper la macro

Je voudrais que cette macro fonctionne quelque soit la cellule d'où la
macro
est lancée,
c'est à dire comme une routine indépendante du nom ou des coordonnées des
cellules.

Pouvez-vous aider le pauvre débutant en Visual basic que je suis ?
Merci à tous.




Avatar
Olgga
Super ! merci
je la teste demain au boulot et je te dis quoi
à+


"lSteph" a écrit dans le message de
news:%

Bonsoir Olggga,

Sub masqit()
With ActiveCell
If .Row = 1 Then Exit Sub
If .Value = .Offset(-1, 0) Then
Rows(.Row).Hidden = True
End If
End With
End Sub

'lSteph


"Olgga" a écrit dans le message de news:
%
Bonjour,

Je cherche à créer une macro effectuant ce travail :
- comparaison du contenu d'une cellule avec le contenu de celle
directement
au-dessus
- si égalité masquer la ligne contenant cette cellule
- si pas égalité stopper la macro

Je voudrais que cette macro fonctionne quelque soit la cellule d'où la
macro
est lancée,
c'est à dire comme une routine indépendante du nom ou des coordonnées
des


cellules.

Pouvez-vous aider le pauvre débutant en Visual basic que je suis ?
Merci à tous.








Avatar
Olgga
Bien le Merci à Steph qui a répondu à ma question
ça marche !
à+


"Olgga" a écrit dans le message de
news:%
Super ! merci
je la teste demain au boulot et je te dis quoi
à+


"lSteph" a écrit dans le message de
news:%

Bonsoir Olggga,

Sub masqit()
With ActiveCell
If .Row = 1 Then Exit Sub
If .Value = .Offset(-1, 0) Then
Rows(.Row).Hidden = True
End If
End With
End Sub

'lSteph


"Olgga" a écrit dans le message de news:
%
Bonjour,

Je cherche à créer une macro effectuant ce travail :
- comparaison du contenu d'une cellule avec le contenu de celle
directement
au-dessus
- si égalité masquer la ligne contenant cette cellule
- si pas égalité stopper la macro

Je voudrais que cette macro fonctionne quelque soit la cellule d'où la
macro
est lancée,
c'est à dire comme une routine indépendante du nom ou des coordonnées
des


cellules.

Pouvez-vous aider le pauvre débutant en Visual basic que je suis ?
Merci à tous.