| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 11/04/2018 à 17:27 | devimen | Duplication de la ligne avec incrémentation | Essais ce code : @+JP... |
| 11/04/2018 à 17:15 | devimen | Duplication de la ligne avec incrémentation | Re, pour une boucle , For LigneNum = DEBUT to FIN '... ICI LigneNum vaut de DEBUT à FIN '... pas besoin de DEBUT = DEBUT +1 Next LigneNum @+JP... |
| 11/04/2018 à 17:10 | devimen | Duplication de la ligne avec incrémentation | Quand tu postes ton code , dans le menu , utilises la case </> , pour ton code , avant de trouver le problème , il faut mettre de l'ordre dans ton code tu déclares : Dim debut As Integer et tu as : DEBUT = InputBox("N DE DEBUT ") tu as donc 2 variables différentes debut qui est integer DEBUT q... |
| 11/04/2018 à 16:52 | devimen | Duplication de la ligne avec incrémentation | Je ne sais pas si tu connais , tu peux écrire : MsgBox Trajet 1 & vbcrlf & Trajet2 @+JP... |
| 11/04/2018 à 16:38 | Arno51 | Problème de recherche ("Find") | Voila un exemple que j'utilise @+JP... |
| 11/04/2018 à 16:32 | Arno51 | Problème de recherche ("Find") | Re, est ce que FSO et filesexist te pause un problème ? @+JP... |
| 11/04/2018 à 16:29 | Manu31 | Routine au fonctionnement aléatoire | Cà ressemble à un problème de focus dans Thisworkbook essai un événement : à l'ouverture ou au chargement ... histoire que le fichier prenne le focus... @+JP... |
| 11/04/2018 à 16:20 | Arno51 | Problème de recherche ("Find") | Tu as cacafouillé avec nomfic = x.value le premier est mal placé après c=c+1 --> else et nomfic = x.value @+JP... |
| 11/04/2018 à 16:07 | christelle1994 | Comparer deux colonnes | Pour finir, voila une formule à mettre en "D2" dans "catalogue" et à recopier jusqu'à "D21" =SIERREUR(INDIRECT("Feuil1!"&CAR(64+EQUIV(A2;xlTabQT[#En-têtes];0))&5);0) cette formule fonctionne avec la transformation en tableau dynamique de la plage A4:E5 nommée xlTabQT le gros avantage , c'est... |
| 11/04/2018 à 14:39 | christelle1994 | Comparer deux colonnes | Pour répondre (encore ) à Patrick1957 , le VBA n'est pas obligatoire ... voila une formule à mettre en "D2" dans "catalogue" et à recopier jusqu'à "D21" =SIERREUR(INDIRECT("Feuil1!"&CAR(64+EQUIV(A2;Feuil1!$A$4:$E$4;0))&5);0) cette formule est perfectible parce que quand je rajoute un code produit en... |
| 11/04/2018 à 12:52 | christelle1994 | Comparer deux colonnes | Comme tu expliques que le tableau est plus grand, voila le code modifié qui s'adapte au nombre de colonne et de ligne @+JP... |
| 11/04/2018 à 12:36 | christelle1994 | Comparer deux colonnes | J'ai rectifié le code , en fait il y avait une faute de frappe LigProg à la place de LigProd !!! maintenant çà fonctionne @+JP... |
| 10/04/2018 à 19:26 | christelle1994 | Comparer deux colonnes | @Patrick1957 , poste tes formules stp @+JP... |
| 10/04/2018 à 19:24 | christelle1994 | Comparer deux colonnes | C'est clair que non mais çà fait réfléchir @+JP... |
| 10/04/2018 à 19:17 | christelle1994 | Comparer deux colonnes | Bon , je reprends... dans la ligne B3 : E3 tu as style des en tête avec code produit... donc tu parcours toutes les cases avec le codes produit : la colonne "E" c'est la colonne n°5 For ColProd = 2 To 5 ... Next ColProd pour chaque code produit : NumProd = Sheets("Feuil1").Cells(3,ColProd).Value tu... |
| 10/04/2018 à 18:53 | christelle1994 | Comparer deux colonnes | Christelle1994 , arrête de faire des blagues... |
| 10/04/2018 à 18:40 | christelle1994 | Comparer deux colonnes | Dans la ligne E4 : E20 tu as style des en tête avec code produit... donc tu parcours toutes cases avec le codes produit : For ColProd = 4 To 20 ... Next ColProd pour chaque code produit : NumProd = Sheets("Feuil1").Cells( !!! STOP !!! j'écris la réponse en lisant ta question , et bêtement ... "dans... |
| 10/04/2018 à 18:14 | 7339simon | Macro pour publipostage, copier ligne en fonction d'une valeur | Il n'y a pas de code null il y a des codes à améliorer , coté visibilité , coté rapidité,... au départ tu écris ton code pour que çà fonctionne et après tu recodes... pour le code suivant , j'ai testé un mini code pour savoir si c'était ok ... à toi de faire pareil , tester des tout petit bout de co... |
| 10/04/2018 à 17:42 | christelle1994 | Comparer deux colonnes | ??? j'ai pas tout compris une ligne , c'est un produit chaque colonne de cette ligne , c'est une info sur ce produit @+JP... |
| 10/04/2018 à 17:30 | 7339simon | Macro pour publipostage, copier ligne en fonction d'une valeur | C'est quel "bout" de code qui te bloque ? @+JP... |
| 10/04/2018 à 17:16 | 7339simon | Macro pour publipostage, copier ligne en fonction d'une valeur | Tu as besoin de la fonction vba Split() qui découpe ton texte avec un "délimiteur" , pour toi , c'est "/" avec : Data = "3086 / Rouge / 3/ 6 / 12" la formule "façon 1" Valeur36 = Val( Split( Data , "/" )(2) ) Valeur37 = Val( Split( Data , "/" )(3) ) Valeur38 = Val( Split( Data , "/" )(4) ) la formul... |
| 10/04/2018 à 16:55 | paul_Fabre | Transfert de données d'une feuille à une autre | Sheets("REFERENCES") existe ? il est dans le même fichier que le code ? si c'est oui , essais un autre nom pour wsi , style OngletRef tout est possible et wsi est peut être le problème essais aussi : worksheets("REFERENCES") @+JP... |
| 10/04/2018 à 16:39 | Montassarbouzid | Conditions imbriquées | SI(ET(ET(0<Z2 ; Z2<4) ; OU(I4="FF" ; I4="FH"))); AC4*1,04; SI(OU(ET(ET(0<Z2 ; Z2<4) ; OU(I4="M" ; I4="T") ;ET(3<Z2 ; Z2<7) ;ET(ET(6<Z2 ; Z2<11) ; OU( I4="FF" ; I4="S")))))));AC4*1,05; SI(ET(ET(10<Z2 ; Z2<15) ; OU(I4="M" ; I4="S" ;I4="T")));AC4*1,09; SI(ET (10<Z2 ; Z2... |
| 10/04/2018 à 16:34 | paul_Fabre | Transfert de données d'une feuille à une autre | Wsi.Range("A" & I & ":W" & I).Copy wso.Cells(lam, 1) par exemple @+JP... |
| 10/04/2018 à 16:30 | paul_Fabre | Transfert de données d'une feuille à une autre | Je pense que le problème se cache dans cette ligne : wsi.Rows(I).Copy wso.Cells(lam, 1) 'on copie la ligne de wsi vers wso si tu essais de faire cette opération "à la main" , tu auras une erreur ... tu copy une ligne "entière" et tu colles dans une cellule @+JP... |
| 10/04/2018 à 16:03 | Montassarbouzid | Conditions imbriquées | Tu as partout ta petite erreur "(ou" @+JP... |
| 10/04/2018 à 15:59 | Montassarbouzid | Conditions imbriquées | Pour les longues formules , il faut faire des petits bouts qui fonctionnent et que tu insères au fur et à mesure , pour le début : ET(ET(0<Z2 ; Z2<4) ; (ou(I4="FF" ; I4="FH")) , remarque que "ou" est en minuscule , alors que automatiquement il se met en majuscule "OU" si tu regardes bien "(ou"... |
| 10/04/2018 à 15:34 | Tortuel | Application gestion de stocks | LigneFin = Sheets(OngletName).Range("A" & Rows.Count).End(XlUp).Row avec la dernière ligne du tableau , tu peux maintenant faire une boucle sur toutes les lignes , For n = 1 To LigneFin Next n et tester si la cellules est vide If Cells(n,1).value = "" Then End If ou If Range("A" & n).Value = "" Then... |
| 10/04/2018 à 15:23 | Tortuel | Application gestion de stocks | Pour connaitre la dernière ligne d'un tableau : Sheets(OngletName).Range("A" & Rows.Count).End(XlUp).Row si il y a des lignes vides dans ton tableau : Sheets(OngletName).Range("A1").End(XlDown).Row + 1 te donne la première ligne vide @+JP... |
| 10/04/2018 à 12:57 | paul_Fabre | Changer la valeur d'une Cellule Vide | 'stocke dans un tableau ReDim Preserve Tbl(1 To I) Tbl(I) = Ligne ---> Tbl(I) = Replace( Ligne , ",," , ",NULL,") plusieurs remarques : l'utilisation du mot "NULL" n'est pas formidable ...source de problème le séparateur "," ou ";" j'ai abandonné j'utilise "|" que l' on rencontre beaucoup moins d... |
| 10/04/2018 à 12:39 | Montassarbouzid | Conditions imbriquées | Tu ne peux pas faire comme en VB , A and B or C , les "OR" sont effectivement des "OU" , mais les conditions sont regroupées entre parenthèses OU(condition1 ; condition2 ; condition...) et séparés avec ";" idem pour les "AND" qui sont des "ET" tu peux faire ceci: ET( OU( ; ; ) ; OU( ; ; ) ) puisque... |
| 09/04/2018 à 18:10 | RoubenM | Tableau de facturation : automatiser suivi d'émission | Le chemin où se trouve le classeur qui contient ce code ne pas oublier le "\" , @+JP... |
| 06/04/2018 à 16:09 | RoubenM | Tableau de facturation : automatiser suivi d'émission | Essais : Sheets("SUIVI EMISSION FACTURE").Cells(n2, 18 + val(TrancheNum)).Interior.ColorIndex = 4 @+JP... |
| 05/04/2018 à 18:17 | RoubenM | Tableau de facturation : automatiser suivi d'émission | Voila le code modifié pour ne pas prendre en compte les opérations qui on été traitées et qui on reçue un commentaires et des cases vertes... pour le fichier modifié_JP @+JP... |
| 05/04/2018 à 16:50 | RoubenM | Tableau de facturation : automatiser suivi d'émission | Alors regarde cette modif normalement , dans ton tableau en AM6 tu as un commentaire c'est en plus des cases vertes , çà sert à contrôler si c'est traité...pas pris en compte @+JP... |
| 05/04/2018 à 15:38 | RoubenM | Tableau de facturation : automatiser suivi d'émission | Le fichier modifié_JP_Vert le résultat : la "Mise au Vert" les nouveaux codes l' appel : la procédure de Mise au vert : à suivre la gestion des couleurs @+JP... |
| 05/04/2018 à 14:55 | Saphir | Scroll qui suit d'une feuille à l'autre | Si c'est ok , clique sur résolu @+JP... |
| 05/04/2018 à 14:24 | Saphir | Scroll qui suit d'une feuille à l'autre | La colonne "i" c'est la colonne 9 ... c'est la 9° colonne et non i9 c'est toute le colonne qui est concernée par le click qui capture l' état je vais : onglet FEVRIER je vais : ligne 177 , REPISE PP CARDIF j'écrit n'importe quoi... je clique dans la colonne "i" n'importe où en i169 par exemple la ca... |
| 05/04/2018 à 13:09 | Saphir | Scroll qui suit d'une feuille à l'autre | Voila , j'ai levé la protection des feuilles "mois" , quand tu clique dans la colonne "I" n°9 çà capture l' état de la page.. quand tu va dans une autre page , çà restitue cet état.. à toi de voir avec la protection pour pouvoir cliquer dans la colonne "i" , ou changer de colonne si la protection em... |
| 05/04/2018 à 09:54 | Saphir | Scroll qui suit d'une feuille à l'autre | Si tu veux , @+JP... |
| 05/04/2018 à 09:39 | Saphir | Scroll qui suit d'une feuille à l'autre | Public Ligne As Long permet de transmettre l'information de page en page Ligne = ActiveWindow.ScrollRow lit l'état du scroll de la page source If Ligne > 0 Then ActiveWindow.ScrollRow = Ligne "recopie" l'état de la page source dans la page cible avec ces éléments , tu peut imaginer plusieurs stra... |
| 05/04/2018 à 09:10 | RoubenM | Tableau de facturation : automatiser suivi d'émission | Ton code ne fonctionnait pas..., il fallait dans un premier temps le rendre opérationnel maintenant il parait fonctionner , à toi de dire si le résultat actuel est correct et avec un exemple concret , c'est à dire telle case va ici ou là et elle doit être de telle couleur ou pas ... avec ces explica... |
| 05/04/2018 à 01:35 | tomscoach | Calcul du nombre en fonction d'une date aujourd'hui | Le Nouveau Fichier sans bug ligne 20 @+JP... |
| 05/04/2018 à 01:26 | tomscoach | Calcul du nombre en fonction d'une date aujourd'hui | J'ai ajouté quelques formules ... vérifies quand même si le résultat est ok je viens de voir un bug ligne 20 @+JP... |
| 04/04/2018 à 22:16 | ValerieT | Insert picture | Left() te donnes les caractères de gauche , 8 te donnes le 8 caractères de gauche Left(Path + Filename + ".jpg", 8) te donnes C:\.... puisque tu as Path + ... pour Dir, essais : If Len(Dir(Path & Filename?".jpg")) = 0 Then pour chaque fichier il faut faire Dir tu peut faire une boucle tant que Dir &... |
| 04/04/2018 à 21:21 | DjBen33 | Limiter le maximum pour date | =JOURS("1/3";"31/1") .. donne 29 @+JP... |
| 04/04/2018 à 21:01 | depanmonpc | Valider userform apres remplissage derniere texbox | Tu as aussi l' événement exit @+JP... |
| 04/04/2018 à 20:40 | guigol | Liste des fonctions | Effectivement .. tu peut ruser avec Cells. et tu rajoutes après (1,2) @+JP... |
| 04/04/2018 à 20:35 | ValerieT | Insert picture | La suite de ton numéro semble être un "compteur" , 10003939_000 est donc le premier ?! tu peut aussi tester si le fichier existe... tu peut aussi utiliser "Dir" , dans ce cas tu regarde si la première partie "10003939" est dans le nom du fichier avec "InStr" la fonction Left(NomFichier,8) te donnes... |
| 04/04/2018 à 20:23 | vaffancolor | Problème Macro dans feuille verrouillée | Voila un exemple à comparer à ton code comme tu peut le voir : Password:="motdepasse" en suite c'est à toi de voir quel élément doit être à true : notamment : contents:=True, @+JP... |