Recherche:

Fait suivre le fichier, car on a pas la macro4

Et effectivement, on comprend pas grand chose à la finalité de ton code....

et tu peux faire du ménage :


Sub Bouton1_Cliquer()
With Sheets("Trie Pareto")

Sheets("Data").Range("A4:S1000").Copy Destination:=.Range("A4")

.Range("A1").Value = "Type de...

Salut

Tu peux rajouter une ligne du style :



ActiveSheet.Shapes("Label_info1").caption=sheets("Données").range("Nombre d'habitants").value & _
chr(10) & sheets("Données").range("Nombre de...

Bonjour

J'ai corrigé quelques erreurs dans le code et je pense que la maturité de la première obligation diot être 0.25 et non 0.5. Sinon je ne tombais pas bon!!!

Pour le calcul du 3ème, j'ai...

Je comprend pas bien la question
Comment peux tu remplir ta feuill2, aucune donnée ne correpond entre la feuille 1 et 2

sinon pour trouver les lignes concernées tu peux essayer :



For i = 3...

SAlut

J'ai clarifier ton code et je pense que les buggs ont disparu.
Le problème était dans le transfert des données
J'ai préféré faire afficher chaque fiche pour travailler avec et les fermer...

Bonjour Gasgas

Je te propose un code qui utlise la fonction .find assez pratique
J'ai mis le message d'erreur dans une msgbox et j'ai repris ton textbox avce le même message. si ton textbox...

Bonjour

Je te proopse une solution pour ton problème.
J'ai crée 2 fichiers, les noms sont assez explicites.
et ce code dans le "fichier réduit"



Option Explicit

Salut

Voici une possibilité qui supprime les doublons qui se suivent directement

Dans une feuille 1 colonne A j'ai mis le temps, colonne B j'ai mis des valeurs de volume

Ciao

Précise ta question avec un petit fichier ou/et un exemple

est ce que cela te convient?



Sub testrecopieformule1()
Dim Cell1 As Range, Cell2 As Range, Plage
Set Cell1 = Sheets(1).Range("o6")
Set Cell2 = Cells(6,...

Soit pas égoïste, partage ton fichier...

Je te promet se sera beaucouuuuuuuuuuuuuuuuuup plus simple pour te comprendre!!!

Bonjour

Voilà un code qui peux t'aider dans le fichier joint

Dis moi si cela te convient?

Ciao

si tu veux une réponse soit plus précis dans ta demande

Bonjour

voici ma réponse, même si j'ai eu du mal à comprendre le problème.
d'ailleurs je n'ai aps compris le point 3 et donc pas traiter!!!
ensuite tu ne parles du cas où la différence est...

Merci, je viens de passer 10 minutes en piquant l'écran de mon collègue et en activant le mode présentateur

Encore merci ca va beaucoup de servir

Bonjour

Je suis à la recherche d'un outils de visionnage pour PPT avec séparation entre l'affichage sur PC et sur vidéo projecteur. Le plus de cet outil est que sur le PC il affiche le diaporama,...

J'ai créer un système de gestion des erreurs :

Dim Journee As String
Dim J As Long
Dim ValeurDefault As String
line1:
ValeurDefault = Date

Journee = InputBox("Quelle date vous cherchez?" &...

Merci beaucoup, en une ligne ca a répondu à ce que je recherchais!!!

J'ai trouve une solution à mon promblème


Dim Nom As String
Dim i As Long
'Boucle pour chercher dans les noms des feuilles
i = 1
For Each Sheet In Worksheets
Nom =...

la date (JJ/MM/AAAA) est issue d'une inputbox (donc en string) et je cherche à la convertir en chiffre (ex : 31/08/2009 = 40056)

J'ai essayé en passant par une cellule et en changeant le format de...

Bonjour à tous

J'ai un ensemble de feuilles (graphiques et textes) qui portent des noms différents (textes et chiffres) et je souhaite à partir d'une variable (en long) vérifier si une feuille...