Code vba pour que des cellules portent la même valeur

Résolu/Fermé

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 6 janv. 2019 à 12:07
noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 - 6 janv. 2019 à 18:06

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:

Configuration: Windows / Chrome 71.0.3578.98

A voir également:

Code vba pour que des cellules portent la même valeur
Formule excel pour additionner plusieurs cellules - Guide
Code asci - Guide
Code puk bloqué - Guide
Verrouiller des cellules excel - Guide
Code telephone oublié - Guide

2 réponses

Réponse 1 / 2

danielc0 Messages postés 1424 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 24 janvier 2025 168
6 janv. 2019 à 12:30

Bonjour,

Est-ce que tu veux une copie simple ou une copie spéciale valeurs ?

Daniel

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
6 janv. 2019 à 13:01

En effet ces valeurs changent pour chaque tableau , je crois qu'un copier coller rencontrera des problèmes car quelques cellules sont fusionnés

danielc0 Messages postés 1424 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 24 janvier 2025 168 > noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023
6 janv. 2019 à 15:24

Est-ce que tu peux mettre ton classeur, sans données confidentielles, sur OneDrive, DropBox, CJoint.com, mon-partage.fr ou sur un autre site de partage et poster le lien correspondant ?

Daniel

Réponse 2 / 2

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
6 janv. 2019 à 16:25

Voila le lien du classeur et merci :
https://www.cjoint.com/c/IAgpyK7rOVp

danielc0 Messages postés 1424 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 24 janvier 2025 168
6 janv. 2019 à 17:55

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

noe2008 Messages postés 183 Date d'inscription vendredi 18 juillet 2008 Statut Membre Dernière intervention 9 novembre 2023 4
6 janv. 2019 à 18:06

Merci danielc0 ça marche très bien

Discussions similaires

Cellules en surbrillance selon une TextBox

additionner nombres dans cellules avec texte