1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

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

Résolu
dianbobo Messages postés 151 Date d'inscription mardi 20 avril 2010 Statut Membre Dernière intervention 15 juin 2014 - 24 avril 2010 à 18:52
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
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

3 réponses

Réponse 1 / 3
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
bonjour tout le monde il suffisait
d'ecrire :
If Cells(i,7).Value like "*An*" Then...
3
Réponse 2 / 3
pile_poil Messages postés 682 Date d'inscription vendredi 6 avril 2007 Statut Membre Dernière intervention 4 août 2012 6
26 avril 2010 à 09:19
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
0
Réponse 3 / 3
dianbobo Messages postés 151 Date d'inscription mardi 20 avril 2010 Statut Membre Dernière intervention 15 juin 2014
29 mai 2010 à 16:30
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 .
0
Rejoignez-nous