Une macro pour plusieurs feuilles (compil, module ou les deux) ?

Compiler le code "FeuilCde" afin de "d'envoyer" les valeurs de :

Valeur colonneA vers "RécupA"

Valeur colonneB vers "RécupB"

Valeur colonneC vers "RécupC"

Pourrait-on avoir le but final

La feuille Cde se remplie et les données vont directement sur les trois autres feuilles?

Combien de ligne dans la feuille Cde?

Comment son rangées les données dans les autres feuilles

Un fichier pré-rempli avec des explications serait très utile

Ok Toukoul,

merci,

j'ai mis quelques infos complémentaires.

• Nombre de lignes pas limitées, ici 65536, (Les cellules comportants des formules seront étirées).
• On saisira un seul nombre par ligne, mais pas obligatoirement à chaque ligne (selon exemple en A B et C).
• (les saisies des colonnes F en RécupB et RécupC ont été effectués manuellements pour exemple).

La phrase étant ambiguë pouvez vous me dire : A,B,C sont saisies et F,G,H sont des formules ou inversement

Merci

Sachant que lors du changement de valeur d'un cellule j'irais chercher l'information dans l'autre groupe de colonnes

Toukoul,

A,B,C sont :

A=F

B=G

C=H

F saisie manuelle

G saisie manuelle

H saisie manuelle

N'hesitez pas à me demander des précisions,

je suis novice et passe mon temps à me familliariser mais n'avance pas beaucoup.

Chaque fois qu'une valeur est changée colonnes F,G ou H il me faut saisir la cellule correspondant colonnes A,B ou C et la mettre dans la feuille correspondante (Recup)

Oui ou non?

Si oui : Pourquoi les feuilles "Récup", colonne F, ne seraient-elles pas l'image des colonnes correspondante de la feuille Cde?

Toukoul,

Ce qui fonctionne :

(F et A en Cde) et (F et E en RécupA),

1) On saisi en F3 (Cde) un nombre, celui-ci est automatiquement copié en A3 (par exemple 5 en F3 donc A3)

2) On clique sur la cellule A3 et 5 va automatiquement se positionner dans l'autre feuille (RécupA) en F3 et F8

(idem avec 6 en (F15 et A15) pour (RécupA en F15 et E21)

Dans ce cas la macro s'exécute par la selection de la cellule A3 ( SélectionChange),

Vous pouvez pour essayer :

• effacer toutes les saisies de F G H (mais pas ABC qui s'effaceront toutes seules).
• effacer toutes les cellules de F et E dans la feuilles (RécupA=

Le problème à résoudre est de permettre le même fonctionnement :

pour (G et B en Cde) et (F et E en RécupB)

et pour (H et C en Cde) et (F et E en RécupC)

Correction : E8 pas F8

2) On clique sur la cellule A3 et 5 va automatiquement se positionner dans l'autre feuille (RécupA) en F3 et E8

Regardez ce fichier exemple :

vous saisissez des données dans les colonnes F,G ou H et elles sont automatiquement distribuées dans les colonnes A,B,C et les deux feuilles exemple

Dites moi ce qui ne correspond pas à votre demande

Toukoul,

Merci pour votre patience.

J'ai pu que lire le fichier car ici, je n'ai que Excel2003

Une précision, car je crains de mal expliquer le but.

Les saisies manuelles ne s'opèrent qu'en première feuille (Cde)

en F pour A qui se reporteront en RécupA

en G pour B qui se reporteront en RécupB

en H pour C qui se reporteront en RécupC

Colonne F et Colonne A fonctionnent.

exemple1 :

Elles renvoient dans la deuxième, (feuille RécupA) le chiffre (5) en F3 et surtout attention, là est l'étentiel (5) aussi en E8

soit cinq cellules d'écart entre F3 et E8

exemple2 :

Elles renvoient dans la deuxième, (feuille RécupA) le chiffre (6) en F15 et surtout attention, là est l'étentiel (6) aussi en E21

soit six cellules d'écart entre F15 et E21

faut que l'on puisse faire pareil (avec G et B pour RécupB) et (avec H et C pour RécupC) à+

Il y a sous ton avatar ecrit Axcel 2013

Savez vous utiliser EXCEL?

Si je me mets dans une feuille autre que Cde je peut dans une cellule écrire(a1 par exemple) le signe égale(=) puis aller dans la feuille Cde et cliquer sur la cellule dont les données doivent aller sur a1 puis appuyer sur la touche entrée

Maintenant si vous faites changer la valeur dans la cellule de la feuille Cde la valeur en a1 de l'autre feuille change

Merci pour votre patience.

J'ai pu que lire le fichier car ici, je n'ai que Excel2003

Une précision, car je crains de mal expliquer le but.

Ok pour = cliquer sur cellule concernée,

mais là i faut conserver la fonction de la macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 And Target.Value = "" Then Exit Sub

If Not Intersect(Range("A:A"), Target) Is Nothing Then

MaVal = Cells(Target.Row, "A").Value

With Sheets("RécupA")

.Cells(Target.Row, "F") = MaVal

.Activate

.Cells(Target.Row, "F").Select

End With

End If

End Sub

Merci tout de même

Worksheet_SelectionChange

c"est pas pareil que :

Worksheet_Change qui est bien mieux car lorsqu'il y a selection excel réagit trop souvent alors que "Change" seul excel réagit aux seules modifications de cellules