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
A voir également:
- Code vba pour que des cellules portent la même valeur
- Code ascii - Guide
- Code puk bloqué - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
2 réponses
Voila le lien du classeur et merci :
https://www.cjoint.com/c/IAgpyK7rOVp
https://www.cjoint.com/c/IAgpyK7rOVp
Essaie la macro :
Daniel
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
Daniel