Reporter la valeur d'une cellule sur une autre feuille.
Résolu/Fermé
Villette54
Messages postés
300
Date d'inscription
vendredi 15 mars 2013
Statut
Membre
Dernière intervention
31 juillet 2018
-
Modifié par Villette54 le 30/12/2013 à 08:28
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 6 janv. 2014 à 11:23
Villette54 Messages postés 300 Date d'inscription vendredi 15 mars 2013 Statut Membre Dernière intervention 31 juillet 2018 - 6 janv. 2014 à 11:23
A voir également:
- Reporter la valeur d'une cellule sur une autre feuille.
- Aller à la ligne dans une cellule excel - Guide
- Récupérer la valeur d'une cellule excel vba ✓ - Forum VB / VBA
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Excel reporter des données sur une autre feuille avec conditions ✓ - Forum Excel
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
30 déc. 2013 à 09:38
30 déc. 2013 à 09:38
Bonjour,
Les cellules fusionnées sont à proscrire en VBA !
donc
sur tes feuilles "agents", le mois, les semaines doivent être dé-fusionnés et centrés sur plusieurs colonnes
Les cellules fusionnées sont à proscrire en VBA !
donc
sur tes feuilles "agents", le mois, les semaines doivent être dé-fusionnés et centrés sur plusieurs colonnes
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zone As String, Semaine As String, Agent As String
Application.ScreenUpdating = False
If Not Intersect(Target, Range("D9:F11")) Is Nothing Then
Zone = Target
Semaine = "semaine " & Target.Offset(0, -1)
Agent = Cells(8, Target.Column)
With Sheets(Agent)
Ligne = .Columns("B").Find(Semaine, .Range("B14")).Row + 2
.Cells(Ligne, "D") = Zone
End With
End If
End Sub
Modifié par Villette54 le 30/12/2013 à 10:51
Merci pour ta réponse, je vais essayer de comprendre comment ton code marche, et de le transposer à mon fichier.
En revanche, je ne comprends pas ce que tu veux que je fasse quand tu dis :
Merci.
Modifié par michel_m le 30/12/2013 à 11:21
il faut donc que tu enlèves la fusion, que tu sélectionnes B14:F14 et que tu demandes "centré sur plusieurs colonnes"
m^me punition pour les semaines B15:C15, B26:C26 etc
Pour accéder à ces commandes, tu cliques sur la petite flèche en bas et à droite du ruban accueil-alignement
30 déc. 2013 à 12:11
Désolé je ne connaissais pas cette fonction, merci.
Dernière petite question, le fait que plusieurs lignes soient fusionnées (ex D17:D21) pose-t-il un problème ?
En tout cas merci, tu vas me faire gagner un temps précieux.
30 déc. 2013 à 13:35
Dans notre cas actuel, non.
30 déc. 2013 à 14:48
Bonne continuation, et bonnes fêtes (du moins ce qu'il en reste)