VBA SI cell vide la remplacer par une autre
Résolu
Anelina
-
Anelina -
Anelina -
Bonjour,
Je suis débutante en vba, et depuis quelques jours je cherche une solution en vain, donc toute proposition sera la bienvenue.
Pour un tableau à taille variable, je souhaiterai que :
Si cellule B1 vide ET que la cellule Q1 contient "commande d'achat"
remplacer la valeur de B1 par A1
J'avais au départ opté pour cette solution qui etait satisfaisante jusqu'à ce mon extraction me donne des cellules vides non regroupés (et je ne peux pas trier):
derlig = Range("B1").End(xlDown).Row
Range("B" & derlig).Select
ActiveCell.Offset(1, 0).Select
Do While IsEmpty(ActiveCell) And Cells(ActiveCell.Row, 16).Value = "Commandes d'achat"
Cells(ActiveCell.Row, 2).Formula = Cells(ActiveCell.Row, 1).Value
Selection.Offset(1, 0).Select
Loop
merci
Je suis débutante en vba, et depuis quelques jours je cherche une solution en vain, donc toute proposition sera la bienvenue.
Pour un tableau à taille variable, je souhaiterai que :
Si cellule B1 vide ET que la cellule Q1 contient "commande d'achat"
remplacer la valeur de B1 par A1
J'avais au départ opté pour cette solution qui etait satisfaisante jusqu'à ce mon extraction me donne des cellules vides non regroupés (et je ne peux pas trier):
derlig = Range("B1").End(xlDown).Row
Range("B" & derlig).Select
ActiveCell.Offset(1, 0).Select
Do While IsEmpty(ActiveCell) And Cells(ActiveCell.Row, 16).Value = "Commandes d'achat"
Cells(ActiveCell.Row, 2).Formula = Cells(ActiveCell.Row, 1).Value
Selection.Offset(1, 0).Select
Loop
merci
A voir également:
- VBA SI cell vide la remplacer par une autre
- Remplacer disque dur par ssd - Guide
- Comment supprimer une page vide sur word - Guide
- Remplacer un mot par un autre word - Guide
- Caractere vide - Guide
- Starlink direct to cell prix - Accueil - Opérateurs & Forfaits
2 réponses
Bonjour,
Je suppose dans l'exemple suivant que la colonne A ne contient pas de cellule vide...
!!! Je n'ai pas testé ce code, donc il convient de l'essayer sur une copie de votre fichier avant tout...!!!
Vérifiez aussi l'orthographe de "Commandes d'achat"... Un espace peux tout changer...
Je suppose dans l'exemple suivant que la colonne A ne contient pas de cellule vide...
!!! Je n'ai pas testé ce code, donc il convient de l'essayer sur une copie de votre fichier avant tout...!!!
Dim DerniereLigne As Integer, i As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
For i = 1 To DerniereLigne
If Cells(i, 2).Value = "" And Cells(i, 17).Value = "Commandes d'achat" Then
Cells(i, 2).Value = Cells(i, 1).Value
End If
Next
Vérifiez aussi l'orthographe de "Commandes d'achat"... Un espace peux tout changer...