Microsoft 365 Vba excel

  • Initiateur de la discussion Initiateur de la discussion Mesda
  • 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 !

Mesda

XLDnaute Nouveau
Bonjour,

Je débute en utilisation de VBA.

Je cherche le code pour supprimer les lignes pour toutes les cellules (colonne c) ou le texte se terminant par la lettre. A ?

Si quelqu'un peut m'aider ?

Daniel
 
Bonsoir Mesda, bienvenue sur XLD,

Exécutez sur la feuille active :
VB:
Sub SupLignes()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
[C:C].Replace "*A", "#N/A", xlWhole
[C:C].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End Sub
A+
 
Bonsoir Mesda, bienvenue sur XLD,

Exécutez sur la feuille active :
VB:
Sub SupLignes()
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
[C:C].Replace "*A", "#N/A", xlWhole
[C:C].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
End Sub
[/QUOTE]

je viens de tester c'est nickel, merci, si je veux rajouter une condition "texte se terminant par la lettre A et B" c'est possible avec ce code ? pas simple à comprendre pour un novice ce langage ☺
 
je viens de tester en recopiant :
[C:C].Replace "*A", "#N/A", xlWhole
[C:C].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
[C:C].Replace "*B", "#N/A", xlWhole
[C:C].SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete

ca fonctionne ! 🙂 encore merci
 
Bonjour,

je cherche à écrire un code VBA pour excel :
j'ai un tableau avec des données qui sont extraites chaque jour et qui changes, je voudrais sélectionner des plages de cellule en automatique pour mettre des bordures épaisses pour chaque département.
voici mon tb (avec les bordures que je désire) :

1628050615715.png


chaque jour la colonne B et différente, sur cette exemple j'ai 13 "MONTAGE", mais je voudrais que les bordures épaisses soient automatisées en fonction du département.

Daniel
 

Pièces jointes

  • 1628050345709.png
    1628050345709.png
    42.8 KB · Affichages: 12
- 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
2
Affichages
186
Réponses
20
Affichages
320
Retour