dianbobo
Messages postés151Date d'inscriptionmardi 20 avril 2010StatutMembreDernière intervention15 juin 2014
-
24 avril 2010 à 18:52
dianbobo
Messages postés151Date d'inscriptionmardi 20 avril 2010StatutMembreDernière intervention15 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
pile_poil
Messages postés682Date d'inscriptionvendredi 6 avril 2007StatutMembreDernière intervention 4 août 20126 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
dianbobo
Messages postés151Date d'inscriptionmardi 20 avril 2010StatutMembreDernière intervention15 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