Copie d'une cellule automatique dans les cellules voisines

Bonjour la communauté !

Besoin d'aide ULTRA simple mais ultra compliqué pour moi très grand novice ...

J'aimerai que lorsque je met un "X" dans une case d'une colonne sur une ligne, un "X" se mettent dans les cases de la même ligne des 5 colonne suivantes.

Exemple : Je mets "X" dans la case G2 --> "X" se met automatiquement dans la case H2, I2, J2, K2, L2

Je mets "X" dans la case G3 --> "X" se met automatiquement dans la case H3, I3, J3, K3, L3

Ainsi de suite ... une copie automatique !

Si quelqu'un peut me copier la macro à mettre ça serait super sympa !!!

Merci par avance

Pas besoin de macro pour cela.

Une simple formule.

Pour recopier la valeur de la cellule G2 en H2 : tu mets dans la cellule H2

=G2

Et tu recopies cette formule dans les cellules I2, J2, K2 et L2

Je sais mais c'est pour m'éviter à faire cette manipulation (mettre X dans G2 et H2 puis étirer la cellule pour que ça se copie dans I2,J2,K2,L2 ...)

Surtout que c'est sur 200 lignes ...

J'aimerai juste à avoir à mettre une fois un X dans une case et que les cellules avoisinantes ce complète seules !

Plus concrètement, c'est pour un tableur excel où je dois pointer si toutes les pièces d'un dossier sont réunies.

La colonne G correspond à "Le dossier est complet"

La colonne H correspond à "Formulaire 1"

La colonne I correspond à "Formulaire 2"

La colonne J correspond à "Formulaire 3"

Ainsi de suite ...

Et au lieu de cocher toutes les colonnes lorsque le dossier est complet j'aimerai avoir juste à cocher la case dans la colonne G pour que toutes les cases voisines de la même ligne se complètent.

Après pourquoi ne pas juste cocher la case dans la colonne G et s'en contenter ... c'est pour visuellement repérer les cases où il n'y a pas de X !

Merci d'avance pour l'aide

p.s. : je mets le fichier excel en pièce jointe

Rajoute alors juste une colonne avec : dossier complet

Je dis cela car commencer un fichier avec macro pour cela c'est lourd.

C'est déjà le cas mais justement j'aimerai que lorsque je coche la cellule dans la colonne "Dossier complet" avec un "X", les autres cellules voisines des colonnes qui sont à côtées soient cochées comme ça je n'ai pas à copier coller ou étendre la cellule sur les 200 lignes ... j'aurais juste à mettre un X par ligne où le dossier est complet.

Je crois que c'est une macro très simple de copier coller mais je ne me débrouille pas très bien ...

J'ai fait ça pour le moment :

Sub Dossier_complet()

'

' Dossier_complet Macro

'

Range("G2:G200").Select

Selection.Copy

Range("H2:K200").Select

ActiveSheet.Paste

End Sub

Mais quand une case est vide dans la colonne G et que j'ai complété des choses dans les colonnes H à K, la macro vide les cases complétées ...

Ok, c'est toi qui choisi.

Dépose un fichier maquette et je te fais cela !

Le voici

Merci beaucoup

Bonjour à tous

Un petit code à tester, à mettre sur la feuille 1

Option Explicit
Dim i As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
i = Target.Row
  If Cells(i, 7).Value = "x" Then
     Cells(i, 7).Value = "X"
    Cells(i, 8).Value = "X"
    Cells(i, 9).Value = "X"
    Cells(i, 10).Value = "X"
    Cells(i, 11).Value = "X"
    'Range(Cells(i, 7), Cells(i, 11)).Interior.Color = RGB(213, 248, 200)
    Else

    Cells(i, 8).Value = 0
    Cells(i, 9).Value = 0
    Cells(i, 10).Value = 0
    Cells(i, 11).Value = 0
    'Range(Cells(i, 8), Cells(i, 11)).Interior.Color = RGB(255, 213, 213)
  End If
End If
End Sub

Les lignes en commentaires peuvent remplacer les MFC de la feuille

Bonjour,

Tu peux mettre cela dans ton WorkSheet pour l’événement Change

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
    If Selection.Column = 7 And Target.Value = "X" Then
        Application.EnableEvents = False
        Range(Target.Address, Range(Target.Address).Offset(0, 4)).Value = "X"
        Application.EnableEvents = True
    End If
Fin:
End Sub

Lorsque tu valides ta saisie, les X se placeront

Bien à toi

Jp

Merci beaucoup c'est parfait !

Bonne journée