Résultats de la recherche

Re : attribuer une cellule à une plage Merci pour votre réponse !

Re : attribuer une cellule à une plage Ca marche merci ! J'avais une autre question... En fait j'ai verrouillé la feuille et la macro ne marche plus... Vous savez pourquoi ? Pourtant j'ai bien écrit : Code : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As...

Re : attribuer une cellule à une plage Parfait ca marche merci beaucoup !!!!!! Merci Merci !! Nono

Bonjour, Je souhaiterai avoir un bout de code qui me met un message d'erreur si dans une des cellules des colonnes Y à AJ de la ligne 7 à la fin du tableau il y a écrit quelque chose, il faut que la colonne C soit rempli. Une message box qui dirait "erreur vous n'avez pas rempli la colonne...

Re : Msg box d'erreur Ok ca marche merci Lorsque j'essaie d'enregistrer la macro j'ai un message d'erreur : " Vous ne pouvez pas exécuter cette commande sur une feuille protégée. Pour pouvoir l'exécuter vous devez tout d'abord ôter la protection de la feuille " Cependant, avant de...

Re : Msg box d'erreur Je ne peux pas écrire cela ? With Sheets(1) For k = 1 To .[aj65000].End(x1Up).Row If .Cells(k, 25).Value = .SpecialCells(xlCellTypeConstants) Then If .Cells(k, "c") = 0 Then MsgBox "Indiquez PERM/TT colonne C": Cancel = True: Exit Sub End If Next k End With Ca me met...

Re : Msg box d'erreur Non ce sont des chiffres que l'on écrit manuellement... J'ai écris ca sur mon workbook mais la fin ne marche pas il me dit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Sheets(1) For i = 1 To .[c65000].End(xlUp).Row If...

Re : Msg box d'erreur Ah d'accord merci !! Ca ne marche toujours pas ca me met "argument ou appel de procédure incorrect" pour la ligne For Each Cel In .Range("Y7:AJ" & Rows.Count).SpecialCells(xlCellTypeConstants)

Re : Msg box d'erreur Merci beaucoup ! Le fichier ne s'ouvre pas... Par contre ca commence à partir de la ligne 7 et lorsque j'ai modifié ca ne marche pas il y a un bug ... For Each Cel In .Range("Y7:AJ65500" & Rows.Count).SpecialCells(xlCellTypeConstants)

Re : Msg box d'erreur Merci beaucoup Papou-Net !! En revanche, est-ce possible de rajouter d’exécuter cette macro au moment de la fermeture du fichier ? Merci !!!

Bonjour, Je souhaiterai avoir un bout de code qui me met un message d'erreur si dans une des cellules des colonnes Y à AJ il y a écrit quelque chose, il faut que la colonne C soit rempli. Une message box qui dirait "erreur vous n'avez pas rempli la colonne C" ... Est-ce vous pouvez m'aider...

Re : Boucle sur les onglets Je viens de changer par Workbooks(FichierMacro).Activate du coup ca n' pas bugué. En revanche, pour le dernier fichier il bloque à : Workbooks(FichierMacro).Activate et ca m'écrit "argument ou appel de procédure incorrect". Je ne comprends pas...

Re : Boucle sur les onglets Bonjour, Lorsque je mets Do Until FichierDB <> "" ma macro va direct à End If et ne fais rien. Donc je pense plutôt que c'est Do Until FichierDB = "" J'ai inséré ton code au mien mais ca bug lorsqu'il rencontre un fichier excel qui n'existait pas auparavant dans...

Re : Boucle sur les onglets J'ai modifié un peu le code mais ca ne marche toujours pas ca bug au niveau Workbooks(FichierDB).Activate ca me met que l'indice n'appartient pas à la s Voici mon code (désolée pour la longueur...) : Sub Bouton1_Cliquer() Dim FichierMacro As String Dim...

Re : Boucle sur les onglets Merci beaucoup le code a l'air de mieux fonctionner cependant il y a un bug au tout dernier fichier excel qu'il ouvre il me met " impossible de renommer une feuille comme une autre feuille " or il n'y avait pas à renommer seulement à copier coller les valeurs ...

Re : Boucle sur les onglets Merci beaucoup !!! Par contre j'ai un message d'erreur à cette partie : If Not exist(Left(FichierDB, Len(FichierDB) - 4), FichierDB) Then FichierMacro.Sheets.Add.Name = Left(FichierDB, Len(FichierDB) - 4) End If C'est le FicierMacro...

Re : Boucle sur les onglets Merci beaucoup Pierre Jean ! A la ligne : Set x = Workbooks(fichier).Sheets(feuille) Je dois écrire le nom de chaque feuille ? Ceci est mon code initial : Sub Bouton1_Cliquer() Dim FichierMacro As String Dim Chemin As String Dim DossierDB As String...

Bonjour à tous, J'ai crée une macro qui me permet d'ouvrir un dossier cible, ouvrir les fichiers excels les uns après les autres et copier coller les données dans des onglets déjà pré établi d'un autre fichier excel. Cependant, il m'arrive parfois d'ajouter de nouveaux fichiers excels dans...

Re : Copier/coller le nom d'un onglet VBA Ah d'accord merci ! En fait mon fichier cible change tout le temps car dans ma macro j'ai un code qui indique où aller chercher mon fichier cible qui se trouve dans un dossier. Au départ ma macro marche comme ca : J'ai un fichier excel avec un onglet...

Re : Copier/coller le nom d'un onglet VBA Merci ! cependant j'ai une question : à la ligne Set WBc = Workbooks("nom du fichier cible") Je n'ai pas compris quel fichier il fallait mettre... Merci Cdt