Formulaire Excel VBA

Le 17/10/2017 à 13:06

Bonjour je suis en possession d'un formulaire qui permet de lire les données d'un onglet "base panel"...selon des variables bien définies...cependant quand j'essaie de passer au suivant cela ne fonctionne pas... j'ai aussi un autre souci ! en fait j'ai deux cases, l'une se nomme "à saisir" et l'autre "à rappeler"...A la lecture des différentes réponses il se peut que je puisse entrer dans ces deux cases une remarque qui viendra se coller à la fin dans l'onglet base panel..il faut savoir que ces deux cases se trouvent dans les onglets "signalétique" et "réponse"...j'ai mis un bouton qui s'appel "ajouter à la base" qui permettra de copier cette info dans l'onglet base panel...merci par avance pour vos retours !

38formulaire.xlsm (195.94 Ko)
Le 17/10/2017 à 15:30

Bonjour,

Il te faut incrémenter ou décrémenter ta variable "sens" sinon, tu reste sur place :

Sub fiche_SuivantOK()
    sens = sens + 1
    Call SuivantOuPrécédent
End Sub

Sub fiche_PrécédentOK()
    sens = sens - 1
    Call SuivantOuPrécédent
End Sub

Bien sûr, il te faut contrôler les extrémités de ta base afin de ne pas avoir d'erreur, tu ne doit pas dépasser le maximum et le minimum d'enregistrements

Le 17/10/2017 à 16:06

ok merci seulement ça bug des fois ça va de 10 en 10..une autre question et j'arrête de t'embêter...imaginons que je remarque une erreur je voudrais mettre (onglet signalétique ou réponse) la correction à apporter sur la case à côté de à saisir et que quand j appuie sur le bouton ajouter à la base la remarque sera bien mise en fin de base en dessous de la colonne à saisir ou à rappeler...merci encore

Le 17/10/2017 à 16:16

Re,

Je te poste tout le code mais sans la recherche car il est préférable que tu sépares la partie Suivant/Précédant du reste. Pour la recherche, tu ajoutes un bouton "Rechercher" et tu crée ta procédure de recherche indépendamment du reste :

Dim fR As Worksheet, fcP As Worksheet, fS As Worksheet
Dim Sens As Long, nbIndividus As Long

Sub fiche_SuivantOK()

    Sens = Sens + 1
    If Sens = nbIndividus + 1 Then Sens = nbIndividus
    Call SuivantOuPrécédent

End Sub

Sub fiche_PrécédentOK()

    Sens = Sens - 1
    If Sens < 2 Then Sens = 2
    Call SuivantOuPrécédent

End Sub

Sub filtre_ok()

    Sheets("Base panel").Visible = True
    Sheets("Base panel").AutoFilter Field:=3, Criteria1:=0

End Sub

Sub SuivantOuPrécédent()

    Set fR = Sheets("Réponse")
    Set fcP = Sheets("Base panel")
    Set fS = Sheets("Signalétique")

    nbIndividus = fcP.Range("BA" & Rows.Count).End(xlUp).Row

    fS.Range("D" & 5) = "'" & Sens - 1 & "/" & nbIndividus - 1

    fS.Range("C5") = fcP.Range("BA" & Sens)     'N° Panéliste
    fS.Range("D7") = fcP.Range("E" & Sens)      'SIRET
    fS.Range("D9") = fcP.Range("J" & Sens)      'Raison sociale
    fS.Range("D11") = fcP.Range("N" & Sens)     'Champ réponse
    fS.Range("D13") = fcP.Range("O" & Sens)     'Effectif salarié
    fS.Range("D15") = fcP.Range("P" & Sens)      'Effectif cadre
    fS.Range("D17") = fcP.Range("BH" & Sens)     'Code activité
    fS.Range("D19") = fcP.Range("F" & Sens)      'Code NAF
    fS.Range("D21") = fcP.Range("Q" & Sens)     'Adr002
    fS.Range("D23") = fcP.Range("R" & Sens)     'Adr003
    fS.Range("D25") = fcP.Range("S" & Sens)     'Adr004
    fS.Range("D27") = fcP.Range("H" & Sens)     'Code postal
    fS.Range("D29") = fcP.Range("T" & Sens)     'Ville
    fS.Range("D31") = fcP.Range("X" & Sens)      'Nom correspondant
    fS.Range("D33") = fcP.Range("Y" & Sens)      'Fonction correspondant
    fS.Range("D35") = fcP.Range("U" & Sens)     'Mail
    fS.Range("D37") = fcP.Range("BT" & Sens)     'Dernière année d'enquête
    fS.Range("D39") = fcP.Range("AT" & Sens)     'Commentaire
    fS.Range("P15") = fcP.Range("CA" & Sens)      'Total recrutements passés
    fS.Range("P17") = fcP.Range("CQ" & Sens)      'Pomotions passées
    fS.Range("P19") = fcP.Range("DJ" & Sens)     'Sorties passées
    fS.Range("P20") = fcP.Range("DK" & Sens)     'dont départs à la retraite
    fS.Range("P22") = fcP.Range("CS" & Sens)     'Total recrutements futurs
    fS.Range("P24") = fcP.Range("DJ" & Sens)     'Sorties futures
    fS.Range("P26") = fcP.Range("DL" & Sens)     'Retraites futures
    fS.Range("D43") = fcP.Range("FP" & Sens)      'A saisir
    fS.Range("D45") = fcP.Range("FQ" & Sens)      'A rappeler

    '________________________________________________________________________

    fR.Range("E" & 9) = "'" & Sens - 1 & "/" & nbIndividus - 1

    fR.Range("C9") = fcP.Range("BA" & Sens)       'N° Panéliste
    fR.Range("E23") = fcP.Range("CA" & Sens)      'Total recrutements passés
    fR.Range("E25") = fcP.Range("CB" & Sens)      'Jeunes diplômés passés
    fR.Range("E27") = fcP.Range("CC" & Sens)      'Jeunes cadres passés
    fR.Range("E29") = fcP.Range("EF" & Sens)      'Cadres confirmés de 6 à 10 ans passés
    fR.Range("E31") = fcP.Range("EG" & Sens)      'Cadres confirmés de 11 à 15 ans passés
    fR.Range("E33") = fcP.Range("EH" & Sens)      'Cadres confirmés de 16 à 20 ans passés
    fR.Range("E35") = fcP.Range("EI" & Sens)      'Cadres confirmés de plus de 20 ans passés
    fR.Range("F25") = fcP.Range("CT" & Sens)      'Jeunes diplômés futurs
    fR.Range("F27") = fcP.Range("CU" & Sens)      'Jeunes cadres futurs
    fR.Range("F29") = fcP.Range("EK" & Sens)      'Cadres confirmés de 6 à 10 ans futurs
    fR.Range("F31") = fcP.Range("EL" & Sens)      'Cadres confirmés de 11 à 15 ans futurs
    fR.Range("F33") = fcP.Range("EM" & Sens)      'Cadres confirmés de 16 à 20 ans futurs
    fR.Range("F35") = fcP.Range("EN" & Sens)      'Cadres confirmés de plus de 20 ans futurs
    fR.Range("J25") = fcP.Range("CE" & Sens)      'Direction générale passés
    fR.Range("J27") = fcP.Range("CF" & Sens)      'Finance, comptabilité, contrôle de gestion passés
    fR.Range("J29") = fcP.Range("CG" & Sens)      'Administration , RH, Communication passés
    fR.Range("J31") = fcP.Range("CH" & Sens)      'Etudes-Recherche et développement passés
    fR.Range("J33") = fcP.Range("CI" & Sens)      'Production industrielle - Chantier passés
    fR.Range("J35") = fcP.Range("CJ" & Sens)      'Achats -qualité - maintenance - logistique - sécurité passés
    fR.Range("J37") = fcP.Range("CK" & Sens)      'Exploitation tertiaire passés
    fR.Range("J39") = fcP.Range("CL" & Sens)      'Commercial , marketing passés
    fR.Range("J41") = fcP.Range("CM" & Sens)      'Informatique passés
    fR.Range("J25") = fcP.Range("CW" & Sens)      'Direction générale futurs
    fR.Range("J27") = fcP.Range("CX" & Sens)      'Finance, comptabilité, contrôle de gestion futurs
    fR.Range("J29") = fcP.Range("CY" & Sens)      'Administration , RH, Communication futurs
    fR.Range("J31") = fcP.Range("CZ" & Sens)      'Etudes-Recherche et développement futurs
    fR.Range("J33") = fcP.Range("DA" & Sens)      'Production industrielle - Chantier futurs
    fR.Range("J35") = fcP.Range("DB" & Sens)      'Achats -qualité - maintenance - logistique - sécurité futurs
    fR.Range("J37") = fcP.Range("DC" & Sens)      'Exploitation tertiaire futurs
    fR.Range("J39") = fcP.Range("DD" & Sens)      'Commercial , marketing futurs
    fR.Range("J41") = fcP.Range("DE" & Sens)      'Informatique futurs
    fR.Range("D43") = fcP.Range("CN" & Sens)      'Fonction Autre1 passés
    fR.Range("D45") = fcP.Range("CO" & Sens)      'Fonction Autre2 passés
    fR.Range("D47") = fcP.Range("CP" & Sens)      'Fonction Autre3 passés
    fR.Range("I43") = fcP.Range("DF" & Sens)      'Fonction Autre1 futurs
    fR.Range("I45") = fcP.Range("DG" & Sens)      'Fonction Autre2 futurs
    fR.Range("I47") = fcP.Range("DH" & Sens)      'Fonction Autre3 futurs
    fR.Range("E52") = fcP.Range("FP" & Sens)      'A saisir
    fR.Range("E54") = fcP.Range("FQ" & Sens)      'A rappeler

End Sub

Pour ta nouvelle question, je ne comprend pas trop ce que tu désires faire ?

Le 17/10/2017 à 16:40

ok super merci...pour la nouvelle question je vais essayer de mieux m'exprimer...dans l'onglet signalétique en cellule D43 (a saisir) je vais noter une erreur par exemple que j'ai sur le code naf en lisant les données car il se peut qu'il y ait une erreur...je vais écrire par exemple le code naf n'est pas le bon...et j'aimerais que ce que je vais écrire comme correction vienne s'incrémenter dans mon onglet "base panel" en fin de fichier sur la colonne à saisir qui correspond à la ligne du panéliste...j'aimerais aussi que quand je bascule sur l'onglet réponse en cellule E52 je peux rajouter une remarque aussi qui serait liée à l'onglet signalétique et à la case à saisir...enfin la même chose quand il s'agit d'un rappel...c'est compréhensible ou pas !!! ce n'est pas évident mais déjà merci beaucoup !!!

Le 17/10/2017 à 19:56

Re,

Voici tout le code à mettre en lieu et place de celui existant. Attention que tes adresses Range correspondent bien au colonnes que tu veux renseigner; Affecte la macro "AjoutModif" à tes boutons "Ajouter à la base" :

Dim fR As Worksheet, fcP As Worksheet, fS As Worksheet
Dim Sens As Long, nbIndividus As Long

Sub fiche_SuivantOK()

    Sens = Sens + 1
    If nbIndividus = 0 Then nbIndividus = Sheets("Base panel").Range("BA" & Rows.Count).End(xlUp).Row

    If Sens = nbIndividus + 1 Then Sens = nbIndividus
    Call SuivantOuPrécédent

End Sub

Sub fiche_PrécédentOK()

    Sens = Sens - 1
    If Sens < 2 Then Sens = 2
    Call SuivantOuPrécédent

End Sub

Sub filtre_ok()

    Sheets("Base panel").Visible = True
    Sheets("Base panel").AutoFilter Field:=3, Criteria1:=0

End Sub

Sub SuivantOuPrécédent()

    Set fR = Sheets("Réponse")
    Set fcP = Sheets("Base panel")
    Set fS = Sheets("Signalétique")

    nbIndividus = fcP.Range("BA" & Rows.Count).End(xlUp).Row

    fS.Range("D" & 5) = "'" & Sens - 1 & "/" & nbIndividus - 1

    fS.Range("C5") = fcP.Range("BA" & Sens)       'N° Panéliste
    fS.Range("D7") = fcP.Range("E" & Sens)        'SIRET
    fS.Range("D9") = fcP.Range("J" & Sens)        'Raison sociale
    fS.Range("D11") = fcP.Range("N" & Sens)       'Champ réponse
    fS.Range("D13") = fcP.Range("O" & Sens)       'Effectif salarié
    fS.Range("D15") = fcP.Range("P" & Sens)       'Effectif cadre
    fS.Range("D17") = fcP.Range("BH" & Sens)      'Code activité
    fS.Range("D19") = fcP.Range("F" & Sens)       'Code NAF
    fS.Range("D21") = fcP.Range("Q" & Sens)       'Adr002
    fS.Range("D23") = fcP.Range("R" & Sens)       'Adr003
    fS.Range("D25") = fcP.Range("S" & Sens)       'Adr004
    fS.Range("D27") = fcP.Range("H" & Sens)       'Code postal
    fS.Range("D29") = fcP.Range("T" & Sens)       'Ville
    fS.Range("D31") = fcP.Range("X" & Sens)       'Nom correspondant
    fS.Range("D33") = fcP.Range("Y" & Sens)       'Fonction correspondant
    fS.Range("D35") = fcP.Range("U" & Sens)       'Mail
    fS.Range("D37") = fcP.Range("BT" & Sens)      'Dernière année d'enquête
    fS.Range("D39") = fcP.Range("AT" & Sens)      'Commentaire
    fS.Range("P15") = fcP.Range("CA" & Sens)      'Total recrutements passés
    fS.Range("P17") = fcP.Range("CQ" & Sens)      'Pomotions passées
    fS.Range("P19") = fcP.Range("DJ" & Sens)      'Sorties passées
    fS.Range("P20") = fcP.Range("DK" & Sens)      'dont départs à la retraite
    fS.Range("P22") = fcP.Range("CS" & Sens)      'Total recrutements futurs
    fS.Range("P24") = fcP.Range("DJ" & Sens)      'Sorties futures
    fS.Range("P26") = fcP.Range("DL" & Sens)      'Retraites futures
    fS.Range("D43") = fcP.Range("EW" & Sens)      'A saisir
    fS.Range("D45") = fcP.Range("EX" & Sens)      'A rappeler

    '________________________________________________________________________

    fR.Range("E" & 9) = "'" & Sens - 1 & "/" & nbIndividus - 1

    fR.Range("C9") = fcP.Range("BA" & Sens)       'N° Panéliste
    fR.Range("E23") = fcP.Range("CA" & Sens)      'Total recrutements passés
    fR.Range("E25") = fcP.Range("CB" & Sens)      'Jeunes diplômés passés
    fR.Range("E27") = fcP.Range("CC" & Sens)      'Jeunes cadres passés
    fR.Range("E29") = fcP.Range("EF" & Sens)      'Cadres confirmés de 6 à 10 ans passés
    fR.Range("E31") = fcP.Range("EG" & Sens)      'Cadres confirmés de 11 à 15 ans passés
    fR.Range("E33") = fcP.Range("EH" & Sens)      'Cadres confirmés de 16 à 20 ans passés
    fR.Range("E35") = fcP.Range("EI" & Sens)      'Cadres confirmés de plus de 20 ans passés
    fR.Range("F25") = fcP.Range("CT" & Sens)      'Jeunes diplômés futurs
    fR.Range("F27") = fcP.Range("CU" & Sens)      'Jeunes cadres futurs
    fR.Range("F29") = fcP.Range("EK" & Sens)      'Cadres confirmés de 6 à 10 ans futurs
    fR.Range("F31") = fcP.Range("EL" & Sens)      'Cadres confirmés de 11 à 15 ans futurs
    fR.Range("F33") = fcP.Range("EM" & Sens)      'Cadres confirmés de 16 à 20 ans futurs
    fR.Range("F35") = fcP.Range("EN" & Sens)      'Cadres confirmés de plus de 20 ans futurs
    fR.Range("J25") = fcP.Range("CE" & Sens)      'Direction générale passés
    fR.Range("J27") = fcP.Range("CF" & Sens)      'Finance, comptabilité, contrôle de gestion passés
    fR.Range("J29") = fcP.Range("CG" & Sens)      'Administration , RH, Communication passés
    fR.Range("J31") = fcP.Range("CH" & Sens)      'Etudes-Recherche et développement passés
    fR.Range("J33") = fcP.Range("CI" & Sens)      'Production industrielle - Chantier passés
    fR.Range("J35") = fcP.Range("CJ" & Sens)      'Achats -qualité - maintenance - logistique - sécurité passés
    fR.Range("J37") = fcP.Range("CK" & Sens)      'Exploitation tertiaire passés
    fR.Range("J39") = fcP.Range("CL" & Sens)      'Commercial , marketing passés
    fR.Range("J41") = fcP.Range("CM" & Sens)      'Informatique passés
    fR.Range("J25") = fcP.Range("CW" & Sens)      'Direction générale futurs
    fR.Range("J27") = fcP.Range("CX" & Sens)      'Finance, comptabilité, contrôle de gestion futurs
    fR.Range("J29") = fcP.Range("CY" & Sens)      'Administration , RH, Communication futurs
    fR.Range("J31") = fcP.Range("CZ" & Sens)      'Etudes-Recherche et développement futurs
    fR.Range("J33") = fcP.Range("DA" & Sens)      'Production industrielle - Chantier futurs
    fR.Range("J35") = fcP.Range("DB" & Sens)      'Achats -qualité - maintenance - logistique - sécurité futurs
    fR.Range("J37") = fcP.Range("DC" & Sens)      'Exploitation tertiaire futurs
    fR.Range("J39") = fcP.Range("DD" & Sens)      'Commercial , marketing futurs
    fR.Range("J41") = fcP.Range("DE" & Sens)      'Informatique futurs
    fR.Range("D43") = fcP.Range("CN" & Sens)      'Fonction Autre1 passés
    fR.Range("D45") = fcP.Range("CO" & Sens)      'Fonction Autre2 passés
    fR.Range("D47") = fcP.Range("CP" & Sens)      'Fonction Autre3 passés
    fR.Range("I43") = fcP.Range("DF" & Sens)      'Fonction Autre1 futurs
    fR.Range("I45") = fcP.Range("DG" & Sens)      'Fonction Autre2 futurs
    fR.Range("I47") = fcP.Range("DH" & Sens)      'Fonction Autre3 futurs
    fR.Range("E52") = fcP.Range("FP" & Sens)      'A saisir
    fR.Range("E54") = fcP.Range("FQ" & Sens)      'A rappeler

End Sub

Sub AjoutModif()

    Set fR = Sheets("Réponse")
    Set fcP = Sheets("Base panel")
    Set fS = Sheets("Signalétique")

    fcP.Range("BA" & Sens) = fS.Range("C5")       'N° Panéliste
    fcP.Range("E" & Sens) = fS.Range("D7")        'SIRET
    fcP.Range("J" & Sens) = fS.Range("D9")        'Raison sociale
    fcP.Range("N" & Sens) = fS.Range("D11")       'Champ réponse
    fcP.Range("O" & Sens) = fS.Range("D13")       'Effectif salarié
    fcP.Range("P" & Sens) = fS.Range("D15")       'Effectif cadre
    fcP.Range("BH" & Sens) = fS.Range("D17")      'Code activité
    fcP.Range("F" & Sens) = fS.Range("D19")       'Code NAF
    fcP.Range("Q" & Sens) = fS.Range("D21")       'Adr002
    fcP.Range("R" & Sens) = fS.Range("D23")       'Adr003
    fcP.Range("S" & Sens) = fS.Range("D25")       'Adr004
    fcP.Range("H" & Sens) = fS.Range("D27")       'Code postal
    fcP.Range("T" & Sens) = fS.Range("D29")       'Ville
    fcP.Range("X" & Sens) = fS.Range("D31")       'Nom correspondant
    fcP.Range("Y" & Sens) = fS.Range("D33")       'Fonction correspondant
    fcP.Range("U" & Sens) = fS.Range("D35")       'Mail
    fcP.Range("BT" & Sens) = fS.Range("D37")      'Dernière année d'enquête
    fcP.Range("AT" & Sens) = fS.Range("D39")      'Commentaire
    fcP.Range("CA" & Sens) = fS.Range("P15")      'Total recrutements passés
    fcP.Range("CQ" & Sens) = fS.Range("P17")      'Pomotions passées
    fcP.Range("DJ" & Sens) = fS.Range("P19")      'Sorties passées
    fcP.Range("DK" & Sens) = fS.Range("P20")      'dont départs à la retraite
    fcP.Range("CS" & Sens) = fS.Range("P22")      'Total recrutements futurs
    fcP.Range("DJ" & Sens) = fS.Range("P24")      'Sorties futures
    fcP.Range("DL" & Sens) = fS.Range("P26")      'Retraites futures
    fcP.Range("EW" & Sens) = fS.Range("D43")      'A saisir
    fcP.Range("EX" & Sens) = fS.Range("D45")      'A rappeler

    '________________________________________________________________________

    fcP.Range("BA" & Sens) = fR.Range("C9")       'N° Panéliste
    fcP.Range("CA" & Sens) = fR.Range("E23")      'Total recrutements passés
    fcP.Range("CB" & Sens) = fR.Range("E25")      'Jeunes diplômés passés
    fcP.Range("CC" & Sens) = fR.Range("E27")      'Jeunes cadres passés
    fcP.Range("EF" & Sens) = fR.Range("E29")      'Cadres confirmés de 6 à 10 ans passés
    fcP.Range("EG" & Sens) = fR.Range("E31")      'Cadres confirmés de 11 à 15 ans passés
    fcP.Range("EH" & Sens) = fR.Range("E33")      'Cadres confirmés de 16 à 20 ans passés
    fcP.Range("EI" & Sens) = fR.Range("E35")      'Cadres confirmés de plus de 20 ans passés
    fcP.Range("CT" & Sens) = fR.Range("F25")      'Jeunes diplômés futurs
    fcP.Range("CU" & Sens) = fR.Range("F27")      'Jeunes cadres futurs
    fcP.Range("EK" & Sens) = fR.Range("F29")      'Cadres confirmés de 6 à 10 ans futurs
    fcP.Range("EL" & Sens) = fR.Range("F31")      'Cadres confirmés de 11 à 15 ans futurs
    fcP.Range("EM" & Sens) = fR.Range("F33")      'Cadres confirmés de 16 à 20 ans futurs
    fcP.Range("EN" & Sens) = fR.Range("F35")      'Cadres confirmés de plus de 20 ans futurs
    fcP.Range("CE" & Sens) = fR.Range("J25")      'Direction générale passés
    fcP.Range("CF" & Sens) = fR.Range("J27")      'Finance, comptabilité, contrôle de gestion passés
    fcP.Range("CG" & Sens) = fR.Range("J29")      'Administration , RH, Communication passés
    fcP.Range("CH" & Sens) = fR.Range("J31")      'Etudes-Recherche et développement passés
    fcP.Range("CI" & Sens) = fR.Range("J33")      'Production industrielle - Chantier passés
    fcP.Range("CJ" & Sens) = fR.Range("J35")      'Achats -qualité - maintenance - logistique - sécurité passés
    fcP.Range("CK" & Sens) = fR.Range("J37")      'Exploitation tertiaire passés
    fcP.Range("CL" & Sens) = fR.Range("J39")      'Commercial , marketing passés
    fcP.Range("CM" & Sens) = fR.Range("J41")      'Informatique passés
    fcP.Range("CW" & Sens) = fR.Range("J25")      'Direction générale futurs
    fcP.Range("CX" & Sens) = fR.Range("J27")      'Finance, comptabilité, contrôle de gestion futurs
    fcP.Range("CY" & Sens) = fR.Range("J29")      'Administration , RH, Communication futurs
    fcP.Range("CZ" & Sens) = fR.Range("J31")      'Etudes-Recherche et développement futurs
    fcP.Range("DA" & Sens) = fR.Range("J33")      'Production industrielle - Chantier futurs
    fcP.Range("DB" & Sens) = fR.Range("J35")      'Achats -qualité - maintenance - logistique - sécurité futurs
    fcP.Range("DC" & Sens) = fR.Range("J37")      'Exploitation tertiaire futurs
    fcP.Range("DD" & Sens) = fR.Range("J39")      'Commercial , marketing futurs
    fcP.Range("DE" & Sens) = fR.Range("J41")      'Informatique futurs
    fcP.Range("CN" & Sens) = fR.Range("D43")      'Fonction Autre1 passés
    fcP.Range("CO" & Sens) = fR.Range("D45")      'Fonction Autre2 passés
    fcP.Range("CP" & Sens) = fR.Range("D47")      'Fonction Autre3 passés
    fcP.Range("DF" & Sens) = fR.Range("I43")      'Fonction Autre1 futurs
    fcP.Range("DG" & Sens) = fR.Range("I45")      'Fonction Autre2 futurs
    fcP.Range("DH" & Sens) = fR.Range("I47")      'Fonction Autre3 futurs
    fcP.Range("FP" & Sens) = fR.Range("E52")      'A saisir
    fcP.Range("FQ" & Sens) = fR.Range("E54")      'A rappeler

End Sub
Le 18/10/2017 à 09:46

tout d'abord je ne sais comment te remercier le programme marche parfaitement bien...il y a juste une instruction manquante je pense...quand je remplis la cellule "a saisir" ou "a rappeler" dans l'onglet signalétique et que j'appuie sur le bouton ajouter à la base rien ne se passe..par contre cela fonctionne dans l'onglet "réponse"....crois-tu que c'est possible de lier ces deux cellules...c'est à dire que si je note une remarque dans l'onglet signalétique dans "a saisir" on retrouve la remarque dans l'onglet réponse dans la cellule "a saisir"...je ne sais pas si c'est possible de les lier...merci encore d'avoir pris du temps, je t'offrirais bien un café avec le croissant bien entendu !

Le 18/10/2017 à 19:57

Bonsoir,

Regardes les adresses des cellules cible dans la partie SuivantOuPrécédent concernant la partie Signalétique, les colonnes sont EW et EX alors quelles devraient être FP et FQ, il en est de même pour la proc AjoutModif, j'ai oublié de faire la modif

Le 19/10/2017 à 06:50

Bonjour,

Les procédures avec corrections :

Sub SuivantOuPrécédent()

    Set fR = Sheets("Réponse")
    Set fcP = Sheets("Base panel")
    Set fS = Sheets("Signalétique")

    nbIndividus = fcP.Range("BA" & Rows.Count).End(xlUp).Row

    fS.Range("D" & 5) = "'" & Sens - 1 & "/" & nbIndividus - 1

    fS.Range("C5") = fcP.Range("BA" & Sens)       'N° Panéliste
   fS.Range("D7") = fcP.Range("E" & Sens)        'SIRET
   fS.Range("D9") = fcP.Range("J" & Sens)        'Raison sociale
   fS.Range("D11") = fcP.Range("N" & Sens)       'Champ réponse
   fS.Range("D13") = fcP.Range("O" & Sens)       'Effectif salarié
   fS.Range("D15") = fcP.Range("P" & Sens)       'Effectif cadre
   fS.Range("D17") = fcP.Range("BH" & Sens)      'Code activité
   fS.Range("D19") = fcP.Range("F" & Sens)       'Code NAF
   fS.Range("D21") = fcP.Range("Q" & Sens)       'Adr002
   fS.Range("D23") = fcP.Range("R" & Sens)       'Adr003
   fS.Range("D25") = fcP.Range("S" & Sens)       'Adr004
   fS.Range("D27") = fcP.Range("H" & Sens)       'Code postal
   fS.Range("D29") = fcP.Range("T" & Sens)       'Ville
   fS.Range("D31") = fcP.Range("X" & Sens)       'Nom correspondant
   fS.Range("D33") = fcP.Range("Y" & Sens)       'Fonction correspondant
   fS.Range("D35") = fcP.Range("U" & Sens)       'Mail
   fS.Range("D37") = fcP.Range("BT" & Sens)      'Dernière année d'enquête
   fS.Range("D39") = fcP.Range("AT" & Sens)      'Commentaire
   fS.Range("P15") = fcP.Range("CA" & Sens)      'Total recrutements passés
   fS.Range("P17") = fcP.Range("CQ" & Sens)      'Pomotions passées
   fS.Range("P19") = fcP.Range("DJ" & Sens)      'Sorties passées
   fS.Range("P20") = fcP.Range("DK" & Sens)      'dont départs à la retraite
   fS.Range("P22") = fcP.Range("CS" & Sens)      'Total recrutements futurs
   fS.Range("P24") = fcP.Range("DJ" & Sens)      'Sorties futures
   fS.Range("P26") = fcP.Range("DL" & Sens)      'Retraites futures
   fS.Range("D43") = fcP.Range("FP" & Sens)      'A saisir
   fS.Range("D45") = fcP.Range("FQ" & Sens)      'A rappeler

    '________________________________________________________________________

    fR.Range("E" & 9) = "'" & Sens - 1 & "/" & nbIndividus - 1

    fR.Range("C9") = fcP.Range("BA" & Sens)       'N° Panéliste
   fR.Range("E23") = fcP.Range("CA" & Sens)      'Total recrutements passés
   fR.Range("E25") = fcP.Range("CB" & Sens)      'Jeunes diplômés passés
   fR.Range("E27") = fcP.Range("CC" & Sens)      'Jeunes cadres passés
   fR.Range("E29") = fcP.Range("EF" & Sens)      'Cadres confirmés de 6 à 10 ans passés
   fR.Range("E31") = fcP.Range("EG" & Sens)      'Cadres confirmés de 11 à 15 ans passés
   fR.Range("E33") = fcP.Range("EH" & Sens)      'Cadres confirmés de 16 à 20 ans passés
   fR.Range("E35") = fcP.Range("EI" & Sens)      'Cadres confirmés de plus de 20 ans passés
   fR.Range("F25") = fcP.Range("CT" & Sens)      'Jeunes diplômés futurs
   fR.Range("F27") = fcP.Range("CU" & Sens)      'Jeunes cadres futurs
   fR.Range("F29") = fcP.Range("EK" & Sens)      'Cadres confirmés de 6 à 10 ans futurs
   fR.Range("F31") = fcP.Range("EL" & Sens)      'Cadres confirmés de 11 à 15 ans futurs
   fR.Range("F33") = fcP.Range("EM" & Sens)      'Cadres confirmés de 16 à 20 ans futurs
   fR.Range("F35") = fcP.Range("EN" & Sens)      'Cadres confirmés de plus de 20 ans futurs
   fR.Range("J25") = fcP.Range("CE" & Sens)      'Direction générale passés
   fR.Range("J27") = fcP.Range("CF" & Sens)      'Finance, comptabilité, contrôle de gestion passés
   fR.Range("J29") = fcP.Range("CG" & Sens)      'Administration , RH, Communication passés
   fR.Range("J31") = fcP.Range("CH" & Sens)      'Etudes-Recherche et développement passés
   fR.Range("J33") = fcP.Range("CI" & Sens)      'Production industrielle - Chantier passés
   fR.Range("J35") = fcP.Range("CJ" & Sens)      'Achats -qualité - maintenance - logistique - sécurité passés
   fR.Range("J37") = fcP.Range("CK" & Sens)      'Exploitation tertiaire passés
   fR.Range("J39") = fcP.Range("CL" & Sens)      'Commercial , marketing passés
   fR.Range("J41") = fcP.Range("CM" & Sens)      'Informatique passés
   fR.Range("J25") = fcP.Range("CW" & Sens)      'Direction générale futurs
   fR.Range("J27") = fcP.Range("CX" & Sens)      'Finance, comptabilité, contrôle de gestion futurs
   fR.Range("J29") = fcP.Range("CY" & Sens)      'Administration , RH, Communication futurs
   fR.Range("J31") = fcP.Range("CZ" & Sens)      'Etudes-Recherche et développement futurs
   fR.Range("J33") = fcP.Range("DA" & Sens)      'Production industrielle - Chantier futurs
   fR.Range("J35") = fcP.Range("DB" & Sens)      'Achats -qualité - maintenance - logistique - sécurité futurs
   fR.Range("J37") = fcP.Range("DC" & Sens)      'Exploitation tertiaire futurs
   fR.Range("J39") = fcP.Range("DD" & Sens)      'Commercial , marketing futurs
   fR.Range("J41") = fcP.Range("DE" & Sens)      'Informatique futurs
   fR.Range("D43") = fcP.Range("CN" & Sens)      'Fonction Autre1 passés
   fR.Range("D45") = fcP.Range("CO" & Sens)      'Fonction Autre2 passés
   fR.Range("D47") = fcP.Range("CP" & Sens)      'Fonction Autre3 passés
   fR.Range("I43") = fcP.Range("DF" & Sens)      'Fonction Autre1 futurs
   fR.Range("I45") = fcP.Range("DG" & Sens)      'Fonction Autre2 futurs
   fR.Range("I47") = fcP.Range("DH" & Sens)      'Fonction Autre3 futurs
   fR.Range("E52") = fcP.Range("FP" & Sens)      'A saisir
   fR.Range("E54") = fcP.Range("FQ" & Sens)      'A rappeler

End Sub

Sub AjoutModif()

    Set fR = Sheets("Réponse")
    Set fcP = Sheets("Base panel")
    Set fS = Sheets("Signalétique")

    fcP.Range("BA" & Sens) = fS.Range("C5")       'N° Panéliste
   fcP.Range("E" & Sens) = fS.Range("D7")        'SIRET
   fcP.Range("J" & Sens) = fS.Range("D9")        'Raison sociale
   fcP.Range("N" & Sens) = fS.Range("D11")       'Champ réponse
   fcP.Range("O" & Sens) = fS.Range("D13")       'Effectif salarié
   fcP.Range("P" & Sens) = fS.Range("D15")       'Effectif cadre
   fcP.Range("BH" & Sens) = fS.Range("D17")      'Code activité
   fcP.Range("F" & Sens) = fS.Range("D19")       'Code NAF
   fcP.Range("Q" & Sens) = fS.Range("D21")       'Adr002
   fcP.Range("R" & Sens) = fS.Range("D23")       'Adr003
   fcP.Range("S" & Sens) = fS.Range("D25")       'Adr004
   fcP.Range("H" & Sens) = fS.Range("D27")       'Code postal
   fcP.Range("T" & Sens) = fS.Range("D29")       'Ville
   fcP.Range("X" & Sens) = fS.Range("D31")       'Nom correspondant
   fcP.Range("Y" & Sens) = fS.Range("D33")       'Fonction correspondant
   fcP.Range("U" & Sens) = fS.Range("D35")       'Mail
   fcP.Range("BT" & Sens) = fS.Range("D37")      'Dernière année d'enquête
   fcP.Range("AT" & Sens) = fS.Range("D39")      'Commentaire
   fcP.Range("CA" & Sens) = fS.Range("P15")      'Total recrutements passés
   fcP.Range("CQ" & Sens) = fS.Range("P17")      'Pomotions passées
   fcP.Range("DJ" & Sens) = fS.Range("P19")      'Sorties passées
   fcP.Range("DK" & Sens) = fS.Range("P20")      'dont départs à la retraite
   fcP.Range("CS" & Sens) = fS.Range("P22")      'Total recrutements futurs
   fcP.Range("DJ" & Sens) = fS.Range("P24")      'Sorties futures
   fcP.Range("DL" & Sens) = fS.Range("P26")      'Retraites futures
   fcP.Range("FP" & Sens) = fS.Range("D43")      'A saisir
   fcP.Range("FQ" & Sens) = fS.Range("D45")      'A rappeler

    '________________________________________________________________________

    fcP.Range("BA" & Sens) = fR.Range("C9")       'N° Panéliste
   fcP.Range("CA" & Sens) = fR.Range("E23")      'Total recrutements passés
   fcP.Range("CB" & Sens) = fR.Range("E25")      'Jeunes diplômés passés
   fcP.Range("CC" & Sens) = fR.Range("E27")      'Jeunes cadres passés
   fcP.Range("EF" & Sens) = fR.Range("E29")      'Cadres confirmés de 6 à 10 ans passés
   fcP.Range("EG" & Sens) = fR.Range("E31")      'Cadres confirmés de 11 à 15 ans passés
   fcP.Range("EH" & Sens) = fR.Range("E33")      'Cadres confirmés de 16 à 20 ans passés
   fcP.Range("EI" & Sens) = fR.Range("E35")      'Cadres confirmés de plus de 20 ans passés
   fcP.Range("CT" & Sens) = fR.Range("F25")      'Jeunes diplômés futurs
   fcP.Range("CU" & Sens) = fR.Range("F27")      'Jeunes cadres futurs
   fcP.Range("EK" & Sens) = fR.Range("F29")      'Cadres confirmés de 6 à 10 ans futurs
   fcP.Range("EL" & Sens) = fR.Range("F31")      'Cadres confirmés de 11 à 15 ans futurs
   fcP.Range("EM" & Sens) = fR.Range("F33")      'Cadres confirmés de 16 à 20 ans futurs
   fcP.Range("EN" & Sens) = fR.Range("F35")      'Cadres confirmés de plus de 20 ans futurs
   fcP.Range("CE" & Sens) = fR.Range("J25")      'Direction générale passés
   fcP.Range("CF" & Sens) = fR.Range("J27")      'Finance, comptabilité, contrôle de gestion passés
   fcP.Range("CG" & Sens) = fR.Range("J29")      'Administration , RH, Communication passés
   fcP.Range("CH" & Sens) = fR.Range("J31")      'Etudes-Recherche et développement passés
   fcP.Range("CI" & Sens) = fR.Range("J33")      'Production industrielle - Chantier passés
   fcP.Range("CJ" & Sens) = fR.Range("J35")      'Achats -qualité - maintenance - logistique - sécurité passés
   fcP.Range("CK" & Sens) = fR.Range("J37")      'Exploitation tertiaire passés
   fcP.Range("CL" & Sens) = fR.Range("J39")      'Commercial , marketing passés
   fcP.Range("CM" & Sens) = fR.Range("J41")      'Informatique passés
   fcP.Range("CW" & Sens) = fR.Range("J25")      'Direction générale futurs
   fcP.Range("CX" & Sens) = fR.Range("J27")      'Finance, comptabilité, contrôle de gestion futurs
   fcP.Range("CY" & Sens) = fR.Range("J29")      'Administration , RH, Communication futurs
   fcP.Range("CZ" & Sens) = fR.Range("J31")      'Etudes-Recherche et développement futurs
   fcP.Range("DA" & Sens) = fR.Range("J33")      'Production industrielle - Chantier futurs
   fcP.Range("DB" & Sens) = fR.Range("J35")      'Achats -qualité - maintenance - logistique - sécurité futurs
   fcP.Range("DC" & Sens) = fR.Range("J37")      'Exploitation tertiaire futurs
   fcP.Range("DD" & Sens) = fR.Range("J39")      'Commercial , marketing futurs
   fcP.Range("DE" & Sens) = fR.Range("J41")      'Informatique futurs
   fcP.Range("CN" & Sens) = fR.Range("D43")      'Fonction Autre1 passés
   fcP.Range("CO" & Sens) = fR.Range("D45")      'Fonction Autre2 passés
   fcP.Range("CP" & Sens) = fR.Range("D47")      'Fonction Autre3 passés
   fcP.Range("DF" & Sens) = fR.Range("I43")      'Fonction Autre1 futurs
   fcP.Range("DG" & Sens) = fR.Range("I45")      'Fonction Autre2 futurs
   fcP.Range("DH" & Sens) = fR.Range("I47")      'Fonction Autre3 futurs
   fcP.Range("FP" & Sens) = fR.Range("E52")      'A saisir
   fcP.Range("FQ" & Sens) = fR.Range("E54")      'A rappeler

End Sub
Le 20/10/2017 à 18:38

merci beaucoup !!!

Rechercher des sujets similaires à "formulaire vba"