Contenu récent par Nonno

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 ...