XL 2010 Résolu par Laurent : Sélectionner des plages de cellules

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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Je reviens vers vous pour des sélections de plages de cellules que je n'arrives pas à faire (déplacements dans excel).... je tourne en rond LOL.
Mes recherches et essais n'aboutissement pas et votre aide me serait encore précieuse.

Voici la macro que je suis en train de faire (j'écris dedans les points qui me "coincent":
Code:
Option Explicit
Sub NettoieSuivisAppels()
Application.ScreenUpdating = False
Application.EnableEvents = False

Dim derlg As Long, i As Long
With Sheets("Feuil1") 'à remplacer par nom de ta feuille
derlg = .Range("r" & .Rows.Count).End(xlUp).Row 'remplacer A par colonne concernée
For i = derlg To 1 Step -1
    If .Range("r" & i) = "bleu" Then Exit For
Next i
'MsgBox .Range("r" & i).Address
Range("r" & i).Select
End With
ActiveCell.Offset(1).Resize(1).Select
ActiveCell.Offset(0, -13).Select 'date
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide de la colonne

ActiveCell.Offset(0, 2).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 1)).Select 'tel
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide des 2 colonnes

ActiveCell.Offset(0, 3).Select 'n° client
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide de la colonne

Range(ActiveCell.Offset(0, 9), ActiveCell.Offset(0, 10)).Select 'motif 1 2
ActiveCell.Offset(0).Resize(100).Select
Comment sélectionner jusqu'à la dernière cellule non vide des 2 colonnes
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Un grand merci déjà pour m'avoir lu.
Je joins un fichier test,
Bon WE toutes et à tous,
Amicalement,
Lionel,
 

Pièces jointes

Re-le Forum,

J'ai avancé sur mon souci.
J'y suis presque. Il me manque un dernier code que je n'arrive pas à trouver.

Je n'arrive pas à expliquer LOL.
je joins le nouveau fichier et une photo qui, je l'espère "vous parlera".

Un grand Merci à vous,
Amicalement,
Lionel,
 

Pièces jointes

Bonsoir

'
ActiveCell.Offset(1).Resize(1).Select
ActiveCell.Offset(0, -13).Select 'date
MsgBox Cells(65536, ActiveCell.Column).End(xlUp).Row
MsgBox ActiveCell.Row
' Voici ci-dessous
'Comment sélectionner jusqu'à la dernière cellule non vide de la colonne
ActiveCell.Offset(0).Resize(Cells(65536, ActiveCell.Column).End(xlUp).Row - ActiveCell.Row + 1, 1).Select
 
- 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

  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
517
Retour