SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion winxpfam
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
W

winxpfam

Guest
Bonjour,

J'ai fait une macro qui marche bien mais bon je pense qu'il y a beaucoup plus simple.

Sub Try() ' SI B1 EST VIDE ALORS METTRE LA VALEUR DE A1 DANS Bi (i allant de 1 à la derniere ligne du tableau)

If IsEmpty(Range("B1")) = True Then 'Si B1 est vide alors B1=A1
Range("B1") = Range("A1")

ElseIf IsEmpty(Range("B2")) = True Then 'Si B2 est vide alors B2=A1
Range("B2") = Range("A1")

ElseIf IsEmpty(Range("B3")) = True Then 'Si B3 est vide alors B3=A1
Range("B3") = Range("A1")

ElseIf IsEmpty(Range("B4")) = True Then 'Si B4 est vide alors B4=A1
Range("B4") = Range("A1")

ElseIf IsEmpty(Range("B5")) = True Then 'Si B5 est vide alors B5=A1
Range("B5") = Range("A1")

'etc...

End If

End Sub

Vos suggestions sont la bienvenue

Merci
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour à tous,
Bienvenue sur XLD,

Merci de commencer tes messages par un Bonjour...

Peux-tu essayer :

Option Explicit

Sub Try()
Dim i%
For i = 2 To 50
If IsEmpty(Range("B" & i)) = True Then Range("B" & i) = Range("A1")
Next i
End Sub
Cliquez pour agrandir...

A + à tous

Edition : Salut Fred... Même combat... A++
 
Dernière édition:
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour xinxpfam et bienvenue sur le forum.

Bien que tu n'aies pas encore lu la Lien supprimé et omis de dire bonjour au début de ton post, je suis bien disposé aujourd'hui et vais donc te faire une réponse qui je l'espère sera adaptée à ta demande.

Je te propose ce code :
VB: 
Sub Try() ' SI B1 EST VIDE ALORS METTRE LA VALEUR DE A1 DANS Bi (i allant de 1 à la derniere ligne du tableau)
    Dim i
    For i = 1 To 100 ' mettre ici la dernière ligne souhaitée
        If IsEmpty(Range("B" & i)) Then Range("B" & i) = Range("A1")
    Next
End Sub

Dans le
Code: 
For i = 1 to 100
il te faut remplacer le 100 par la dernière ligne que tu souhaites voir remplie par A1.

Edit : Hello JCGL

A+
 
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour,

Merci pour ta réponse très rapide.

je viens d'essayer ton code le problème c'est qu'il me remplie toutes les lignes jusqu'a 100 directement.

Merci comme même de ton aide.

Cordialement

Fred0o à dit:
Bonjour xinxpfam et bienvenue sur le forum.

Bien que tu n'aies pas encore lu la Lien supprimé et omis de dire bonjour au début de ton post, je suis bien disposé aujourd'hui et vais donc te faire une réponse qui je l'espère sera adaptée à ta demande.

Je te propose ce code :
VB: 
Sub Try() ' SI B1 EST VIDE ALORS METTRE LA VALEUR DE A1 DANS Bi (i allant de 1 à la derniere ligne du tableau)
    Dim i
    For i = 1 To 100 ' mettre ici la dernière ligne souhaitée
        If IsEmpty(Range("B" & i)) Then Range("B" & i) = Range("A1")
    Next
End Sub

Dans le
Code: 
For i = 1 to 100
il te faut remplacer le 100 par la dernière ligne que tu souhaites voir remplie par A1.

Edit : Hello JCGL

A+
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour,

Merci pour ta reponse rapide.

Je viens d'essayer ton code mais le probleme c'est qu'il ne met rien dans B1 ert remplis toutes les autre cellule de b2 à b50

Merci comme même de ton aide.

Cordialement

JCGL à dit:
Bonjour à tous,
Bienvenue sur XLD,

Merci de commencer tes messages par un Bonjour...

Peux-tu essayer :



A + à tous

Edition : Salut Fred... Même combat... A++
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour winxpfam, Bonjour Jean-Claude, Bonjour Fred,

Le code de winxpfam ne remplit-il pas seulement la première cellule vide de la colonne B par la valeur de A1 ? (ElseIf)

peut-être un truc comme ça...

Code: 
Sub test()
    If Range("B1").End(xlDown).Row <> Range("B65536").End(xlUp).Row Then
        Range("B1").End(xlDown).Offset(1, 0).Value = Range("A1").Value
    End If
End Sub

Edit : Oups, 2 réponses que j'avais loupé, moi...
 
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

ce que je souhaite :

J'ai une valeur dans A1

Je souhaite la mettre dans B1 si elle est vide

Si elle est pleine mettre la valeur dans B2

Si la B1 et B2 Sont pleines mettre la valeur dans B3

etc...jusqu'a B*****

Si je ne suis pas assez claire merci de me le dire.

Merci d'avance

Cordialement
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour à tous

Mauvaise lecture du code de ma part. Mille excuses.

Voic une modif qui fonctionne :
VB: 
Sub Try() ' SI B1 EST VIDE ALORS METTRE LA VALEUR DE A1 DANS Bi (i allant de 1 à la derniere ligne du tableau)
   Dim i
    For i = 1 To 100 ' mettre ici la dernière ligne souhaitée
       If IsEmpty(Range("B" & i)) Then
            Range("B" & i) = Range("A1")
            i = 100
        End If
    Next
End Sub

A+
 
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Bonjour,

Ton code marche nickel vraiment merci beaucoup.

Cordialement

Fred0o à dit:
Bonjour à tous

Mauvaise lecture du code de ma part. Mille excuses.

Voic une modif qui fonctionne :
VB: 
Sub Try() ' SI B1 EST VIDE ALORS METTRE LA VALEUR DE A1 DANS Bi (i allant de 1 à la derniere ligne du tableau)
   Dim i
    For i = 1 To 100 ' mettre ici la dernière ligne souhaitée
       If IsEmpty(Range("B" & i)) Then
            Range("B" & i) = Range("A1")
            i = 100
        End If
    Next
End Sub

A+
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : SI B1 EST VIDE ALORS B1=A1 SINON B2=A1 etc...

Re-bonjour,

En fait je n'avais pas bien compris le problème au départ. On peut donc remplacer le code par celui-ci :
VB: 
Sub Try()
    Dim i
    While Not IsEmpty(Range("B" & i))
        i = i + 1
    Wend
    Range("B" & i) = Range("A1")
End Sub

A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
746
un internaute
U
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
278
anthoYS
anthoYS
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
457
un internaute
U
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
TooFatBoy
anthoYS
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
624
anthoYS
anthoYS
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
255
anthoYS
anthoYS
lynyrd
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
791
lynyrd
lynyrd
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
264
Nicolas JACQUIN
Nicolas JACQUIN
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
316
TooFatBoy
TooFatBoy
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
915
TooFatBoy
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
482
nabilexcel2007
N
anthoYS
  • Question Question
XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?
Réponses
13
Affichages
527
anthoYS
anthoYS
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
961
Simon 1234
S
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
830
patricktoulon
patricktoulon
thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
818
thunder23
thunder23
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
747
patricktoulon
patricktoulon
anthoYS
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
836
Nicolas JACQUIN
Nicolas JACQUIN
lestoiles1
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
411
lestoiles1
lestoiles1
Etoto
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
678
Etoto
Etoto
Lu76Fer
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
898
SAMUAL_2023
S
Retour