Macro remplir une cellule si vide par macro

[gothc]

Bonjour le forum

j'ai besoin d'aide je recherche une methode pour remplir S 248:404 et U 248:404 si la cellule est vide Uniquement
avec les infos AA 248:404 ( pour la colonne S)
AC 248:404 (pour la colonne U)

voir le fichier joins Merci pour votre aide

 

[Victor21]

Re : Macro remplir une cellule si vide par macro

Bonjour, gothc.

Brut de brut :

Sub remplir()
For Each Cell In Range("s248:u404")
If IsEmpty(Cell) Then Cell.Value = Cell.Offset(0, 8).Value
Next
End Sub

 

[gothc]

Re : Macro remplir une cellule si vide par macro

Merci Victor😎
je test

 

[gothc]

Re : Macro remplir une cellule si vide par macro

re victor21

ta macro fonctionne bien sauf que jai la valeur de la cellule
comment faire pour avoir la formule de la cellule =INDEX(AG249:AG406;EQUIV(AC250;AE249:AE406😉😉 Merci

 

[Papou-net]

Re : Macro remplir une cellule si vide par macro

Bonsoir gothc, bonsoir Patrick,

J'arrive un peu en retard mais comme ma solution diffère je la transmets.

Avec ma procédure événementielle, toute modification d'une de cellules en S ou U entraîne la mise-à-jour des cellules.

Bonne soirée.

Cordialement.

 

[gothc]

Re : Macro remplir une cellule si vide par macro

Bonsoir Papou
ton code fonctionne super sauf que j'ai la valeur de le cellule je cherche a avoir la formule
Merci pour votre aide

 

[Victor21]

Re : Macro remplir une cellule si vide par macro

Re, bonsoir, Papou-net 🙂

re victor21

ta macro fonctionne bien sauf que jai la valeur de la cellule
comment faire pour avoir la formule de la cellule =INDEX(AG249:AG406;EQUIV(AC250;AE249:AE406😉😉 Merci

Si value renvoie la valeur, que pourrait bien renvoyer formula ?
ps : Il faudra peut-être rajouter quelques dollars en AA:AC...

 

[gothc]

Re : Macro remplir une cellule si vide par macro

je comprends ta question Victor21 le fichier joint reste un example pas le fichier source
🙂

 

[Victor21]

Re : Macro remplir une cellule si vide par macro

Re,

... le fichier joint reste un example pas le fichier source
🙂

Bah non, je comprends bien...ce serait bien trop simple avec un fichier représentatif 🙂

 

[gothc]

Re : Macro remplir une cellule si vide par macro

dsl j'ai des informations perso sur le fichier source Victor
merci encore pour votre aide bonne soirée

 

[Papou-net]

Re : Macro remplir une cellule si vide par macro

RE:

Pas sûr que le résultat soit conforme à tes attentes et, comme le dit Bernard, il faut sûrement figer les références en insérant des dollars au bon endroit.

Essaies donc en modifiant le code comme ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Me.Range("S248:S404,U248:U404")
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Plage, Target) Is Nothing Then
  For Each cel In Plage.SpecialCells(xlCellTypeBlanks)
    cel.Formula = cel.Offset(0, 8).Formula
  Next
End If
Application.EnableEvents = True
End Sub

Sinon, quelques précisions quant au but à atteindre seraient souhaitables.

Cordialement.

 

[Victor21]

Re : Macro remplir une cellule si vide par macro

Re,

@ Papou-net : Patrick, oui, Victor, oui, mais Bernard ??? 😉
@gothc : je pensais plus à la structure et à la logique du fichier qu'à son contenu : des données bidons, mais vraisemblables suffisent.
Et je rejoins Papou-net quant à sa dernière remarque, car là, on navigue en IFR avec une panne d'instruments 😉

 

[gothc]

Re : Macro remplir une cellule si vide par macro

oupss Bonne soirée a vous
ta macro fonctionne sur mon fichier Papou encore Merci
Bonne soirée a vous 😎

 

[gothc]

Re : Macro remplir une cellule si vide par macro

je préfere la Macro de victor21 avec une Modif . formula
Sub remplir()
For Each Cell In Range("s248:u404")
If IsEmpty(Cell) Then Cell.Value = Cell.Offset(0, 8).Formula
Next
End Sub
Merci a vous Bonne soirée