Code vba pour que des cellules portent la même valeur
Résolu
noe2008
Messages postés
191
Statut
Membre
-
noe2008 Messages postés 191 Statut Membre -
noe2008 Messages postés 191 Statut Membre -
Bonjour, les amis
Pour me faciliter l'exploitation de ma base de donnée dans mes statistiques j'ai regroupé plusieurs tableaux les un sous les autres mais il me faut ajouter un code vba dans ma macro pour que pour chaque tableau : par exemple la valeur J12 sois copiée sur la plage G17:G26 F12 sois copiée sur la plage F17:G26 C12 sois copiée sur la plage E17:E26 et ainsi de suite pour tous les tableaux
voila une image de ma feuille et merci d'avance:
Pour me faciliter l'exploitation de ma base de donnée dans mes statistiques j'ai regroupé plusieurs tableaux les un sous les autres mais il me faut ajouter un code vba dans ma macro pour que pour chaque tableau : par exemple la valeur J12 sois copiée sur la plage G17:G26 F12 sois copiée sur la plage F17:G26 C12 sois copiée sur la plage E17:E26 et ainsi de suite pour tous les tableaux
voila une image de ma feuille et merci d'avance:
Configuration: Windows / Chrome 71.0.3578.98
2 réponses
-
Bonjour,
Est-ce que tu veux une copie simple ou une copie spéciale valeurs ?
Daniel -
Voila le lien du classeur et merci :
https://www.cjoint.com/c/IAgpyK7rOVp-
Essaie la macro :
Sub Copie() Dim C As Range, Ligne As Long, Res As Variant, Res1 As Variant, Res2 As Variant Ligne = [J1:J10000].Find("*", [J10000], , , xlByRows, xlPrevious).Row For Each C In Range("J1", Cells(Rows.Count, 10).End(xlUp)) If C.Value <> "" And C.Offset(, -1) = "" And C.Offset(, -2) = "" Then Res = C.Value Res1 = C.Offset(, -7).Value Res2 = C.Offset(, -4).Value ElseIf C.Row <= Ligne And C.Offset(, -3) = "" And C.Value <> "" And IsNumeric(C.Value) Then C.Offset(, -3) = Res C.Offset(, -5) = Res1 C.Offset(, -4) = Res2 End If Next C End Sub
Daniel -
-
