Bonjour à tous,
 
je cherche à créer un programme qui supprime les colonnes dont la première ligne affiche un mois qui n'est pas décembre, mars, juin ou septembre.
 
J'ai codé ceci :  
 
Sub trimestre()
Dim numero As Long
mauvais = 2014
 
While mauvais <= 2025
numero = 6
 
While numero <= 50
janvier = "31/01/" & mauvais
fevrier = "28/02/" & mauvais
avril = "30/04/" & mauvais
mai = "31/05/" & mauvais
juillet = "31/07/" & mauvais
aout = "31/08/" & mauvais
octobre = "31/10/" & mauvais
novembre = "30/11/" & mauvais
 
If Cells(1, numero) = janvier Or fevrier Or avril Or mai Or juillet Or aout Or octobre Or novembre Then
Columns(numero).Select
Selection.Delete shift:=xlToLeft
Else
numero = numero + 1
End If
 
Wend
 
 
mauvais = mauvais + 1
Wend
 
 
End Sub
 
 
 
 
 
 
 
Cependant, j'ai une erreur de type 13 (imcompatibilité de type) au niveau du Columns(numero).Select. Je ne comprend pas trop pourquoi.
Edit : le problème semble provenir de la ligne d'au dessus, car même en suprimant celle-ci le problème subsiste.
 
 
Si vous pouviez m'éclairer se serait gentil à vous.
 
Merci

Au lieu de  

Ecrire

 
Le Cobol permet d'avoir des conditions abrégées comme, If Cells(1, numero) = janvier Or fevrier, mais pas les autres langages.

Bonjour,
merci pour votre réponse, il n'y a plus d'erreur.
Cependant mes définitions des mois semblent fausses car il ne les supprime pas. alors que si je remplace janvier par un simple "31/01/2015" dans la condition il supprimera la première colone des dates. auriez vous une idée.
 
Par avance merci.