Comment identifier le contenu d'une cellule et selectionner la colonne correspodRésolu

Question

Salut!

J'essaye d'écrire sur VB un astuce pour selectionner une cellule, voir si elle contient la valeur du mois actuel, si non, supprimer toute la colonne de la feuil de calcul.

Ce que je demander c'est comment faire pour lire la valeur de la cellule, et comment sélectionner la colonne correspondante? 

Merci

vbfrance44 · Accepted Answer

bonjour
tu peux recuperer la valeur d'une cellule avec 
cells(ligne,colonne).value


pour recuperer la colonne d'une cellule active :
NumCol = ActiveCell.Column 
ou NumCol =cells(ligne,colonne).column 'pas d'interet la colonne est deja connu

pour effacer une colonne : 
Columns(NumCol).Select 
Selection.Delete

zabronzki · Answer

rebonjour

Merci, je l'ai essayé et ca va tres bien sauf pour un petit truc:

ce que je recupere de la cellule est une date. je veux la comparer avec la date actuelle. pour cela, je nomme une variable comme date actuel et je dis a vba de la comparer avec la valeur que j'ai retirer de ma cellule, il me balance une erreur: incompatibilite de type...

est-ce que vb conserve le format quand je retire la date d'excel?

vbfrance44 · Answer

bonsoir
pour comparer une date d'une cellule avec la date d'aujourd'hui, tu peux dans un premier temps controler si ta cellule contient une valeur qui peut etre exprimer en date.
utilise l'instruction ISdate(activecell.value)
si ta cellule contient une date, tu peux la comparer a la date d'aujourd'hui
je te mache le travail avec l'exemple suivant
Dim CompDate As Date
If IsDate(ActiveCell.Value) Then
    CompDate = ActiveCell.Value
    If CompDate = Date Then
        MsgBox "la date de la cellule correspond a la date d'aujourd'hui"
    Else
        MsgBox "la date de la cellule est differente de la date d'aujourd'hui"
    End If
End If

bonne continuation

Comment identifier le contenu d'une cellule et selectionner la colonne correspod

3 réponses

Votre réponse