recherche sur plage et remplacement par macro avec plusieurs valeurs calculées

[fchevalier]

Bonjour

Je cherche à remplacer par macro (avec recopie valeur pour éviter les références circulaires) les caractères "*" d'un tableau par la valeur calculée en bout de chaque ligne.

Une fois les "*" remplacés, les écarts entre temps total et temps théorique sont nuls et les temps d'affectation des équipes sont corrects.

La fonction EQUIV me donne le n° de colonne dans lequel on trouve le "*" sur chaque ligne mais je ne sais pas comment aller plus loin.

Qi qq1 a une idée (mon fichier exemple est joint)

Merci d'avance !!😕

 

[vgendron]

Re : recherche sur plage et remplacement par macro avec plusieurs valeurs calculées

Hello

en vba ca te donne ca

Sub remplace()
Set tableau = Range("D3:I7")

For Each ele In tableau
    If ele = "*" Then
        Cells(ele.Row, ele.Column) = Range("J" & ele.Row)
    End If
Next ele

End Sub

 

[fchevalier]

Re : recherche sur plage et remplacement par macro avec plusieurs valeurs calculées

@vgendron

Hello,
C'est net, c'est épuré, c'est fonctionnel, c'est un miracle 😉

Un grand merci !!!