probleme VBA Clearcontents Fermé

Question

Bonjour,

j'ai un souci sous VBA, je desire supprimer des cellules avec le code ci-dessous : 

If requete = "Inflows1" Then


XL.Sheets(requete).Activate
 XL.Sheets(requete).Range("h2").Value = DateArrete
 XL.Sheets(requete).Range("c9:r9;c14:16;c18;c19;c21:c23;c25:c27;c29:c31;c33:c35;c37;c38;c40:c42;c44:c47;c49:c51;c53;c54;c56:c64;c67").ClearContents
 
 End If
 

Si je remplace tout le groupe de cellule par une ou deux cellules cela fonctione et là l'erreur 1004 s'affiche...

Merci de votre aide

f894009 · Answer

Bonjour,

XL.Sheets(requete).Range("c9:r9;c14:16;c18;c19;c21:c23;c25:c27;c29:c31;c33:c35;c37;c38;c40:c42;c44:c47;c49:c51;c53;c54;c56:c64;c67").ClearContents

Manque une lettre aprés c14:
XL.Sheets(requete).Range("c9:r9;c14:X16;c18;c19;c21:c23;c25:c27;c29:c31;c33:c35;c37;c38;c40:c42;c44:c47;c49:c51;c53;c54;c56:c64;c67").ClearContents

Avec quel EXCEL travaillez-vous? Car avec EXCEL2000 à 2002, le séparateur de liste est une virgule pas un point virgule.


Exemple fait avec l'apprentissage d'EXCEL
Sub Macro2()
'
' Macro2 Macro

'
    Range("I2:N2,I6:N6,I8,J9,K10,L11,M12,N12,I15:N15,I17:I26").Select
    Range("I17").Activate
    Selection.ClearContents
End Sub

ClearContents: efface le contenu de cellule(s) pas la ou les cellule(s)


Bonne suite

phadeb · Answer

Essaie de remplacer 
.clearcontent 
par 
.value = null

Probleme VBA Clearcontents

2 réponses

Discussions similaires