correction et terminer une macro

  • Initiateur de la discussion Initiateur de la discussion bpol
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bpol

XLDnaute Impliqué
bonsoir,

j'avais déjà demandé pour centrer ds un tableau une ligne si une cellule E1 est égale a une de la colonne D12😀191
j'ai fait une esquisse de macro y aurait il une bonne âme pour la corriger et la compléter.

Dim HautImage As Long,
Dim Range(“D1”) As integer
Application.ScreenUpdating = False


With ActiveWindow.ActivePane.VisibleRange
HautImage = .Top + (.Height / 2)

End With

With ActiveSheet.
‘and
Range(“D1”) =Range(“D12: D191”)
.Top = HautImage - (.Height / 2)

End With


Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

CentreRange

Application.ScreenUpdating = True

End Sub



MERCI

Bpol
 
Re : correction et terminer une macro

Bonjour bpol

sans doute qu'un fichier en pièce jointe, sans données confidentielles, nous aiderait plus facilement à t'aider, car là en l'état, personnellement je ne vois pas trop le résultat attendu. Suis même pas sur que tu nous donnes tout le code, vois pas le nom de 1ère procédure....

bonne journée
@+
 
Re : correction et terminer une macro

bonjour et merci Pierrot93,

ci joint un exemple de tableau
avec les explications de ce que je désir avoir comme résultat.
attention il y a des "volets figés"

pour ce qui est de l'essai de macro je débute et donc je suis parti d'un exemple que j'ai essayé de modifier. mal à première vue😛
 

Pièces jointes

Re : correction et terminer une macro

Salut Pierrot, bonjour bpol,

Peut-être que compressé, tu aurais pu en mettre plus, car 15 Ko sous Xls et sans rien, sans macros, c'est moins bien que 40 sous Zip et avec tes macros...

Tes macros ne font pas 200Ko je présume....

Revoir donc.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
867
Réponses
4
Affichages
510
Réponses
10
Affichages
455
Réponses
2
Affichages
361
Réponses
2
Affichages
370
Retour