Posez votre question Signaler

[Déplacé VB6 --> VBA] effacer cellules [Résolu]

Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
 - - Dernière réponse : dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
 - 4 juin 2010 à 10:58
Visual Basic 6 Posez votre question Signaler
Bonjour je suis debutant en vba et excel
voila je veux faire la chose suivante :

j'ai 3 colonnes sur une feuille excel D2:D102 , E2:E102,F2:F102 dans une feuille d'un classeur excel

ces 3 colonnes ont des dates Dans la colonne D j'ai les dates de naissances
dans la colonne E j'ai des dates intermediares et dans la colonnes F j'ai les dates de morts
ce que je veux faire c'est creer un code sous vba quime permet de copier ces 3 colonnes dans une feuille d'un autre classeur tout en effaçant dans ma feuille de destination les cellules dans les 3 colonnes si la date de mort est inferieure a la date d'haujourd'hui.!

voila comment j'ai essayé de raisonner sauf que ma colonne F s'est entierement effacé. 



Sub valoblig()
'enlever les obligations expirées dont les dates d'echéances sont avant 2010
For i = 2 To 239

   Nonbre = R2C3 - Cells(i, 6).FormulaR1C1
   Cells(i, 6).FormulaR1C1 = "=((R" & (i) & " C6))"
   If Nombre <= 0 Then
                      Cells(i, 6).FormulaR1C1 = "=(Cells(i,6))"
                      
                  Else
                      Cells(i, 6).FormulaR1C1 = ""
                      
      End If
Next i
End Sub
Afficher la suite 

3 réponses

Meilleure réponse
Signaler Commenter la réponse de dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
3
Merci
bonjour tout le monde il suffisait
d'ecrire :
If Cells(i,7).Value like "*An*" Then...

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 207 internautes nous ont dit merci ce mois-ci

Commenter la réponse de dianbobo
Signaler Commenter la réponse de pile_poil
Messages postés
682
Date d'inscription
vendredi 6 avril 2007
Statut
Membre
Dernière intervention
4 août 2012
 6
0
Merci
Nonbre =
If Nombre <=
à mon avis il y a comme un probleme
en toute premiere ligne de ta page de code mets donc un
Option explicite
et déclares TOUTES tes variables
ça te permettra à l'avenir de ne plus faire ce genre d'erreur

si c'est la solution, penser : REPONSE ACCEPTEE
Commenter la réponse de pile_poil
Signaler Commenter la réponse de dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
0
Merci
bonjour tout le monde
je voudrais ajouter une condition if a mon code mais elle est sur une colonne qui contient des caractères .
en fait je veux que l'exécution soit faite seulement lorsqu'on rencontre ce caractère dans une des cellules de la colonne 7.
ce caractère est 
An

du coup jai pensé a ecrire comme ci-dessous 
For i=o to K-6
 If Cells(i + 6, 15).Value <> "" Then
      If Cells(i,7).Value="An" Then...

MAIS J'ai des doutes en ecrivant 
If Cells(i,7).Value="An" Then...
puisque ce sont des caracteres qui sont en colonne 7 et non des nombres

merci de corriger mon erreur .
Commenter la réponse de dianbobo
Répondre Posez votre question