Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

choix feuille selon valeur cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion cisco38
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

cisco38

XLDnaute Nouveau
bonjour
je souhaiterais copier les valeurs des cellules selon la valeur de la cellule E3
SI E3=SIE copier dans tableau de suivi SIE et si E3=CAR dans tableau de suivi CAR
 

Pièces jointes

Trier par date Trier par votes
Re : choix feuille selon valeur cellule

salut

peut être comme ceci (je t'ai commenté le code) :

Code: 
Dim OD As Worksheet 'Onglet de Destination
Dim lign As Variant

Select Case Range("e3") 'on teste la cellule E3
    Case "": MsgBox "Merci de completer la cellule E3": Exit Sub 'si vide, message +sortie de procédure
    Case "SIE": Set OD = Sheets("tableau de suivi SIE") 'si SIE, on initialise la variable objet od avec la feuille correpondante
    Case "CAR": Set OD = Sheets("tableau de suivi CAR") 'idem pour CAR
End Select


lign = OD.Range("A65000").End(xlUp).Row 'on recherche la derniere ligne non vide

a plus
 
Vote positif 0 Vote négatif
Re : choix feuille selon valeur cellule

faut il modifier tableau de suivi SIE par OD
merci deja pour l'aide
 
Vote positif 0 Vote négatif
Re : choix feuille selon valeur cellule

re 🙂

oui, maintenant ta feuille de destination est défini par la variable OD, donc tu remplaces comme ceci :

Code: 
Private Sub BtnCopier_Click()
Dim OD As Worksheet 'Onglet de Destination
Dim lign As Variant

Select Case Range("e3") 'on teste la cellule E3
    Case "": MsgBox "Merci de completer la cellule E3": Exit Sub 'si vide, message +sortie de procédure
    Case "SIE": Set OD = Sheets("tableau de suivi SIE") 'si SIE, on initialise la variable objet od avec la feuille correpondante
    Case "CAR": Set OD = Sheets("tableau de suivi CAR") 'idem pour CAR
End Select


lign = OD.Range("A65000").End(xlUp).Row 'on recherche la derniere ligne non vide
    
With Sheets("Demande de travaux")
    If .Range("T2").Value <> OD.Range("A" & lign).Value And OD.Range("A" & lign).Value <> "" Then
        OD.Range("A" & lign + 1).Value = .Range("T2").Value
        OD.Range("B" & lign + 1).Value = .Range("K4").Value
        OD.Range("C" & lign + 1).Value = .Range("K43").Value
        OD.Range("D" & lign + 1).Value = .Range("E3").Value
        OD.Range("E" & lign + 1).Value = .Range("K3").Value
        OD.Range("F" & lign + 1).Value = .Range("R3").Value
        OD.Range("G" & lign + 1).Value = .Range("E4").Value
        OD.Range("H" & lign + 1).Value = .Range("R4").Value
        OD.Range("I" & lign + 1).Value = .Range("A21").Value
        OD.Range("J" & lign + 1).Value = .Range("A35").Value
        OD.Range("K" & lign + 1).Value = .Range("M19").Value
        OD.Range("L" & lign + 1).Value = .Range("S19").Value
        
    Else: MsgBox "Le N° de Fiche deja utilisé-creer nouvelle fiche avant !"
    End If
End With
End Sub

autre chose, ton USF avec le module de classe pour le calendrier, chez moi il ne s'ouvre pas avec les bonnes dates, je dois changer de mois et revenir pour qu'il s'actualise.

a plus

edit : patience, je mangeais ma pizza à la betterave sucrière
 
Vote positif 0 Vote négatif
Re : choix feuille selon valeur cellule

Oui c'est exact , mais si solution a mon probleme resolu ailleurs je reporte ici afin d'aider d 'autre personne dans le meme cas.

Il y a plus d'idee dans deux tete que dans une seule.
La preuve c'est que tu recherche aussi ailleurs puique tu a vu ma demande ailleurs
 
Dernière édition:
Vote positif 0 Vote négatif
Re : choix feuille selon valeur cellule

voici ma solution je ne sais pas si on peu faire autrement mais ça fonctionne
Code: 
With Sheets("Demande de travaux")

    [COLOR=#ff0000]If .Range("T2").Value <> .Range("V2").Value Then[/COLOR]
    
        OD.Range("A" & lign + 1).Value = .Range("T2").Value
        OD.Range("B" & lign + 1).Value = .Range("K4").Value
        OD.Range("C" & lign + 1).Value = .Range("K43").Value
        OD.Range("D" & lign + 1).Value = .Range("E3").Value
        OD.Range("E" & lign + 1).Value = .Range("K3").Value
        OD.Range("F" & lign + 1).Value = .Range("R3").Value
        OD.Range("G" & lign + 1).Value = .Range("E4").Value
        OD.Range("H" & lign + 1).Value = .Range("R4").Value
        OD.Range("I" & lign + 1).Value = .Range("A21").Value
        OD.Range("J" & lign + 1).Value = .Range("A35").Value
        OD.Range("K" & lign + 1).Value = .Range("M19").Value
        OD.Range("L" & lign + 1).Value = .Range("S19").Value
       [COLOR=#ff0000].Range("V2").Value = .Range("T2").Value[/COLOR]
 Else: MsgBox "Le N° de Fiche deja utilisé-creer nouvelle fiche avant !"
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Microsoft 365 Problème résultat de formule SI CONDITIONS ET SINON
Réponses
12
Affichages
384
sylvanu
M
  • Question Question
Microsoft 365 Erreur avec une formule UNIQUE
Réponses
9
Affichages
443
TooFatBoy
F
  • Question Question
Microsoft 365 RECHERCHE V si non alors si
Réponses
6
Affichages
244
FABY
F
V
  • Résolu(e)
XL 2016 Somme.Si contient texte ne prend pas tout en compte
Réponses
4
Affichages
81
vince2k
V
  • Question Question
XL 2021 Formule liée au segment
Réponses
6
Affichages
162
kdet
  • Résolu(e)
XL 2021 Je galère sur une formule
Réponses
10
Affichages
331
Richard6263
  • Question Question
Autres Automatiser calcul RTT selon saisie date d'entrée
Réponses
5
Affichages
229
luno123
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
262
Electron24
C
  • Question Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
542
chris427
C
D
  • Question Question
XL 2013 Fonctions Excel
Réponses
4
Affichages
409
DidierdeMeaux
D
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
306
Payne
P
  • Question Question
XL 2019 faire apparaitre une image en fonction d'une valeur vrai
2
Réponses
16
Affichages
1 K
aspect
E
  • Question Question
XL 2016 RechercheV + macro
Réponses
5
Affichages
212
eXten
E
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
317
Yogean
Y
C
  • Question Question
Microsoft 365 Souci avec RechercheX
Réponses
2
Affichages
139
Hecatonchire
H
B
  • Question Question
XL 2021 Formule suivi de data
Réponses
9
Affichages
258
Dand87
D
E
  • Question Question
Microsoft 365 Règle de surbrillance d'une cellule qui dépasse une valeur selon l'intitulé d'une colonne.
Réponses
2
Affichages
205
Emeline20
E
  • Question Question
XL 2019 Copier des fichiers ".txt" selon la date de modification ou création
Réponses
6
Affichages
93
Titof06
C
  • Résolu(e)
XL 2016 rapatrier des données d'un onglet vers une feuille récapitulatrice via un menu déroulant
Réponses
4
Affichages
162
cocotte38
C
S
  • Question Question
Microsoft 365 Remplacement de valeur en comparant les valeurs
Réponses
8
Affichages
128
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…