VBA recherche cellule dans colonne et calcul

Résolu
StagiaireVBA -  
 StagiaireVBA -
Bonjour,

Dans une colonne, il y a des cellules vides, je souhaite les parcourir une par une (les cellules vides de ma colonne) et les mettre a la valeure de la cellule qui se situe deux colonnes avant et une ligne au dessu (de la cellule vie en question)

j'ai essayé avec

i=0
Range("D7:D1500").Find("", , xlConstants, xlWhole).Activate

Do While i <> 40
ActiveCell.Value= ActiveCell.Offset(-1, -2).Value
Cells.FindNext(After:=ActiveCell).Activate
i=i+1
loop

mais cela ne fonctionne pas, j'ai le message :

L'indice n'apartient pas a la selection, et la deuxieme ligne est surlignée...

Si quelqu'un a une idée?

Merci d'avance!

3 réponses

Réponse 1 / 3
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour

ta variable 'i" sert à quoi? et pourquoi 40 ?

dans l'atente
0
Réponse 2 / 3
StagiaireVBA
 
Bonjour michel_m,

Dans la colonne en question il y aura au maximum 40 cellules vide donc le i sert à lui faire repeter 40 fois la recherche pour qu'il les trouve toutes mais qu'il ne parcour pas toutes les cellules de la colonne jusqu'a la 63000 et des poussières.. Enfin c'était l'intention!
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
re,

essaies 
Sub affecter_cellvide()
Dim lig As Integer, cptr As Byte
lig = 6
For cptr = 1 To 40
    lig = Columns(4).Find("", Cells(lig, 4), xlValues).Row
    Cells(lig, 4) = Cells(lig - 1, 2)
Next

End Sub
0
Réponse 3 / 3
StagiaireVBA
 
Bonjour,

Merci beacoup, ca fonctionne parfaitement, je viens tout juste de le tester.
C'est une bonne journée qui commence!

Bonne Journée
0

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses
Cette valeur ne correspond pas aux restrictions
Sulphide -
Coolmaster -

3 réponses
additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses
restriction de valeur sur Excel
natalia -
hassan -

11 réponses
Réglage chaine de la TNT FR3 TF1 A2 TMC
Yamina -
Redbart -

1 réponse