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

fchevalier

XLDnaute Nouveau
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 !!:confused:
 

Pièces jointes

  • exemple affectations.xlsx
    9.7 KB · Affichages: 27

vgendron

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

Hello

en vba ca te donne ca
Code:
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