Probleme VBA Clearcontents
antoine l
-
antoine l -
antoine l -
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
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
2 réponses
-
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 -
