MISE D'UN TABLEAU A PLUS DE 50 COLONNES

Bonjour à tous.

Ci-joint mon fichier test.

Tous les mois, je met à jour mon onglet " programme" a plus de 50 colonnes,

à partir du reporting "donnée".

Je fais ces mise à jour avec des formules recherchev, mais avec le tableau a plus de 50 colonne, mon tableau s'alourdit considérablement avec les formules recherchev et mon fichier tarde à s'ouvrir.

Disposez-vous de formule plus simple, souple, qui me permettra de mettre à jour de façon rapide, efficace sans alourdir mon fichier ??

Je suis un peu novice en excel.

Je vous remercie d'avance.

cordialement,

deton

Bonjour,

Je ne sais pas si cette formule est plus rapide mais essaye tu verras bien.

Cordialement.

MERCI pour cette réponse.

mais mon fichier fait plus de 50 colonne, existe il une macro ou autre qui me permettrait de mettre à jour ses plus de 50 colonnes sans alourdir mon fichier avec les formules dans chaque cellule des colonnes.

MERCI

CORDIALEMENDDT

A tester.

Cordialement

Je te remercie pour cette réponse.

Mais je suis un peu novice en macro : comment as tu fais ??

deplus je suis ammené aussi a rajouter des lignes dans mon tableau pour des nouveau projets : est il possible avec ta macro

merci

cordialemenet

Je te reposte le fichier avec le code de la macro commenté et un peu amélioré pour gagner en vitesse.

Et oui cela fonctionne si tu rajoutes des lignes fait l'essai tu verras bien

Cordialement

Un grand merci !

mais je dois l'appliquer à mon grand fichier, y'a t il des modification à faire ? ou je dois juste faire un copier coller de ta macro.

Un grand merci !

mais je dois l'appliquer à mon grand fichier, y'a t il des modification à faire ? ou je dois juste faire un copier coller de ta macro.

Et aussi y'a écrit dans la macro : "Cherche si le couple cellule A et cellule B est présent dans la feuille données si oui afficher dans la colonne C le budget. "

je souhaite qu'il fasse juste si la cellule A est présent dans la feuille données ....

JE SUIS VRAIMENT DESOLE POUR TOUTE CES QUESTIONS

MERCI

Non il n'y a rien à changer sauf si la structure de ton fichier est différente.

Je t'ai mis en commentaire dans le code ce qu'il faut changer au besoin.

Ps : j'ai retiré la recherche du couple A&B cela ne recherche plus que si la valeur dans la cellule A est présente dans la feuille données.

A dispo au besoin.

Cordialement.

Juste une petite dernière question :

Et si je souhaite mettre a jour d'autre colonne, COMMENT JE MODIFIE LA MACRO ?? ---- > ci - joint le fichier modifie avec 2 nouvelles colonnes rajouter a mettre a jour.

Merci pour tout

cordialement,

Voilà je t'ai rajouté des commentaires.

Cordialement.

GRAND MERCI A VOUS

CORDIALEMENT

Bonjour,

POUVEZ VOUS ME DIRE COMMENT VOUS AVEZ AFFECTE LA MACRO AU BOUTON "GO" ? SVP

je vois bien les formule de la macro en cliquant droit sur l'onglet de la feuille "programme"; en fesant visualiser code

mais je ne sais pas comment affecter au bouton "Go"

Merci d'avance.

Cordialement,

"

BONJOUR

COMMENT VOUS AVEZ AFFECTE LA MACRO AU BOUTON "GO" ???????

je vois bien la formule de la macro en cliquant sur l'onglet du classeur programme, dans visualiser code

Mais je ne sais pas comment l'affecter au bouton "GO".

Pouvez vous m'aider à le faire svp.

Merci d'avance

cordialement

deton

Bonjour,

Onglet Développeur, puis insérer bouton contrôle Active X, double clique sur le bouton et tu recopies le même code.

Cordialement

bonjour

Re-bonjour,

J'ai appliqué la macro sur mon grand fichier, il me met débogage et "End if" qui à la fin en jaune.

Private Sub CommandButton1_Click()

derligne = Cells(Rows.Count, 1).End(xlUp).Row

derligne2 = Sheets("_Synthese_RA_PSAutres").Cells(Rows.Count, 1).End(xlUp).Row

For i = 9 To derligne

For Z = 3 To derligne2

If Cells(i, 1) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 1) Then

Cells(i, 28) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 34)

Cells(i, 30) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 39)

Cells(i, 34) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 22)

Z = derligne2

Else

Cells(i, 9) = "Valeur non trouvée"

End If

Next Z

Next i

End Sub

Essaye en copiant de cette manière/

Private Sub CommandButton1_Click()
derligne = Cells(Rows.Count, 1).End(xlUp).Row
derligne2 = Sheets("_Synthese_RA_PSAutres").Cells(Rows.Count, 1).End(xlUp).Row

For i = 9 To derligne
    For Z = 3 To derligne2
        If Cells(i, 1) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 1) Then
            Cells(i, 28) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 34)
            Cells(i, 30) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 39)
            Cells(i, 34) = Sheets("_Synthese_RA_PSAutres").Cells(Z, 22)
            Z = derligne2
        Else
            Cells(i, 9) = "Valeur non trouvée"
        End If
    Next Z
Next i
End Sub

Bonjour

J'ai essayé en copiant mais la macro ne fonctionne pas.

Puis-je t'envoyer mon fichier en privé SVP ??

MERCI

CORDIALEMENT

Ok