Sujet Précédent Sujet Suivant

Excel VBA

Résolu/Fermé
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019 - 19 oct. 2015 à 11:34
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019 - 19 oct. 2015 à 13:44
Bonjour,

Je vous explique mon problème dans mon tableau je voudrai que
Si A2 est vide alors A2 = A1 si non A2 = à lui même (A2)

Ma formule en forma excel serai comme ceci :
=Si(A2="";A1;A2)

Bien sur ma formule est fausse car "elle contient une référence circulaire"

donc comment contourner ceci ?

J'ai aussi essayé avec le VBA mais rien ne ce passe voici mon code :

Sub Macro1()

Dim I As Integer

I = 1

While I <> 200
If Cells(2, 1) = "" Then
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A2"), Type:=xlFillDefault
Rows(I & ":" & I).Select

End If
I = I + 1

Wend

End Sub


J'espere avoir été claire

Merci pour vos réponses :)
A voir également:

2 réponses

Réponse 1 / 2
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019
19 oct. 2015 à 11:52
En gros je voudrais que dans ma colonne A chaque cellule vide prenne la valeur de la cellule qui il y a juste au dessu
0
Réponse 2 / 2
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
Modifié par Kuartz le 19/10/2015 à 11:58
Bonjour,

En VBA : 

Sub Code()

Dim i As Integer

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A adapter, j'ai pris la colonne A comme référence (la plus remplie)

For i = 1 To DL 'Je suis parti de la ligne 1

If Range("A" & i).Value = "" Then
   Range("A" & i).Value = Range("A" & i - 1).Value
End If

Next i

End Sub


Cordialement.

Edit : J'ai changé le code, je m'étais trompé.
0
diablo13800 Messages postés 2890 Date d'inscription jeudi 2 juillet 2015 Statut Membre Dernière intervention 16 février 2024 1 844
19 oct. 2015 à 11:58
Bonjour,

Ce ne serait pas plutot " Range("A" & i - 1).Value" Plutôt que i+1 ?
Vu qu'elle veut prendre la valeur de la case au dessus
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
19 oct. 2015 à 12:04
Bonjour diablo13800

Oui, je l'ai changé immédiatement mais il semble que vous ayez regardé au même moment... (11:58 et 11:58 :D)

Cordialement.
0
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019
19 oct. 2015 à 13:44
Bonjour à vous merci beaucoup pour l'aide je l'ai adapté à ce que je voulai et cela fonctionne parfaitement MERCI

Je sais pas ou vous avez appris a faire tous ca mais a chaque foi vous m'apportez une aide tres précieuse
Encore merci
0

Discussions similaires

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

3 réponses