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

chrisdu73

XLDnaute Occasionnel
bonjour a tous,
j'ai un message "trop de caractères de continuité de ligne" comment contourner cela ?
l'utilisation de * est il autorisé comme caractère jocker ?
j'ai plusieurs codes a suprimer qui commence tous par CS, exemple CS1,CS2 ect...
je peux ecrire CS* pour que vba puisse comprendre ?
merci d'avance
chris
 
Re : Message d'erreur

Bonjour Chris,

regarde le code ci dessous, supprime le contenu de la cellule A1, si commence par SD, attention sensible à la casse :

Code:
If Range("A1").Value Like "SD*" Then Range("A1").ClearContents

bonne journée.
@+
 
Re : Message d'erreur

voila j'ai toutes ces lignes
'If Range("C" & r).Value = "CS1" Or _
'Range("C" & r).Value = "CS2" Or _
'Range("C" & r).Value = "CS3" Or _
'Range("C" & r).Value = "CS4" Or _
'Range("C" & r).Value = "CS5" Or _
'Range("C" & r).Value = "CS6" Or _
'Range("C" & r).Value = "CS7" Or _
'Range("C" & r).Value = "CS8" Or _
'Range("C" & r).Value = "CS9" Or _
'Range("C" & r).Value = "CO1" Or _
'Range("C" & r).Value = "CO2" Or _
'Range("C" & r).Value = "CO3" Or _
'Range("C" & r).Value = "CO4" Or _
'Range("C" & r).Value = "CO5" Or _
'Range("C" & r).Value = "CO6" Or _
'Range("C" & r).Value = "CO7" Or _
'Range("C" & r).Value = "CO8" Or _
'Range("C" & r).Value = "CO9" Or _
ect ect ...
comment simplifier tout ca ?
 
Re : Message d'erreur

bonjour
tu peux aussi essayer ceci qui permet d'aller plus loin
Code:
Sub Essai()
Var$ = "CS": I1 = 1: I2 = 9: GoSub Boucle
Var$ = "CO": I1 = 1: I2 = 9: GoSub Boucle
' ect...


Exit Sub ' ne pas oublier avant étiquette
Boucle:
For I = I1 To I2
 If Range("C" & R).Value = Var$ & Trim(I) Then
  ' code de ce que tu dois faire...
 End If
Next
Return
End Sub

Roland
 
Re : Message d'erreur

Bonjour à tous



Si j'ai bien compris

Code:
Sub EffacerCS_CO()
Dim Cell As Range
For Each Cell in Range("C1:C" & [C65536].End(xlUp).Row)
If Cell.Value Like "CS*" or Cell.Value Like "CO*" Then
Cell.ClearContents
End If
Next
End Sub

Résultat ce cette macro:
Le contenu de toutes les cellules de la colonne C contenant CS ou CO sera effacé.
 
Dernière édition:
Re : Message d'erreur

merci a tous mais j'ai utiliser la methode a staple ca fonctionne mais efface uniquement le contenu de la colonne C en fonction de la condition.
je voudrais l'effacement de la ligne
merci encore pour votre aide
chris
 
Re : Message d'erreur

Re

Essaye comme cela alors


Code:
Sub EffacerCS_CO()
Dim Cell As Range
For Each Cell In Range("C1:C" & [C65536].End(xlUp).Row)
If Cell.Value Like "CS*" Or Cell.Value Like "CO*" Then
Cell.EntireRow.Delete
End If
Next
End Sub
 
Re : Message d'erreur

Re,

modifies le tes comme suit :

Code:
If cell.Value Like "CS*" Or cell.Value Like "CO*" Or IsEmpty(cell.Value) Then

mais attention avec une boucle "for each", si 2 cellules consécutives répondent aux critères, seule une ligne sera supprimée. Plutôt procéder comme suit dans ce cas :


Code:
Sub test()
Dim i As Integer
For i = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("C" & i).Value Like "CS*" Or Range("C" & i).Value Like "CO*" Or IsEmpty(Range("C" & i).Value) Then Rows(i).Delete
Next i
End Sub

bon après midi
@+
 
- 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
12
Affichages
378
Retour