Microsoft 365 Vba excel

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
 

job75

XLDnaute Barbatruc
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+
 

Mesda

XLDnaute Nouveau
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 ☺
 

Mesda

XLDnaute Nouveau
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
 

Mesda

XLDnaute Nouveau
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: 6

Discussions similaires

Réponses
13
Affichages
346

Membres actuellement en ligne

Statistiques des forums

Discussions
312 294
Messages
2 086 899
Membres
103 404
dernier inscrit
sultan87