Je soutiens Excel Downloads
Connexion
S'inscrire
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
FORUMS
Nouveaux messages
Rechercher dans les forums
TÉLÉCHARGEMENTS
POUR LES PROFESSIONNELS
Gestion commerciale
Gestion de projets
Gestion du personnel
Tableaux de bord
Comptabilité
Immobilier
Bourse
POUR LES PARTICULIERS
Budgets et comptes
Plannings et calendriers
UTILITAIRES
LEÇONS ET TUTORIAUX
Fonctions Excel
Vba
RESSOURCES PEDAGOGIQUES
Rechercher une ressource
ACTUALITÉS
TUTOS
EXCEL
FORMULES ET FONCTIONS
VBA
POWER QUERY
POWER PIVOT
POWER BI
AUTRES APPLICATIONS
Recherche de tutos vidéos
Connexion
S'inscrire
Quoi de neuf
Effectuez une recherche sur Excel Downloads...
Effectuez une recherche sur Excel Downloads...
Rechercher dans les titres uniquement
Par:
Nouveaux messages
Rechercher dans les forums
Menu
Connexion
S'inscrire
Installer l'application
Installer
FORUMS
Questions
Forum Excel
Pb ouverture fichier : contenu illisible
JavaScript est désactivé. Pour une meilleure expérience, veuillez activer JavaScript dans votre navigateur avant de continuer.
Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement.
Vous devez le mettre à jour ou utiliser un
navigateur alternatif
.
Répondre à la discussion
Message
<blockquote data-quote="Gelinotte" data-source="post: 1395136" data-attributes="member: 94846"><p><strong>Re : Pb ouverture fichier : contenu illisible</strong></p><p></p><p>Bonjour,</p><p></p><p>Un essai ...</p><p>Désactive l'autre macro en la mettant en commentaire.</p><p></p><p>Colle celle-ci ... espérant que ça approche ton idée :</p><p></p><p>[CODE]Private Sub Worksheet_Change(ByVal Target As Range)</p><p>Dim Suivi As String</p><p>If Not Intersect(Target, Range("a2:a100")) Is Nothing Then</p><p>Suivi = ActiveCell.Value</p><p>Range("A2:L100").Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlYes</p><p>Do While ActiveCell.Value <> Suivi 'pour trouver la ligne où j'ai saisi ...</p><p> ActiveCell.Offset(-1, 0).Select</p><p>Loop</p><p>ActiveCell.Offset(0, 1).Select 'pour sélectionner la cellule de la colonne Date</p><p>End If</p><p>End Sub[/CODE]</p><p></p><p></p><p>Geli</p></blockquote><p></p>
[QUOTE="Gelinotte, post: 1395136, member: 94846"] [b]Re : Pb ouverture fichier : contenu illisible[/b] Bonjour, Un essai ... Désactive l'autre macro en la mettant en commentaire. Colle celle-ci ... espérant que ça approche ton idée : [CODE]Private Sub Worksheet_Change(ByVal Target As Range) Dim Suivi As String If Not Intersect(Target, Range("a2:a100")) Is Nothing Then Suivi = ActiveCell.Value Range("A2:L100").Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlYes Do While ActiveCell.Value <> Suivi 'pour trouver la ligne où j'ai saisi ... ActiveCell.Offset(-1, 0).Select Loop ActiveCell.Offset(0, 1).Select 'pour sélectionner la cellule de la colonne Date End If End Sub[/CODE] Geli [/QUOTE]
Insérer les messages sélectionnés…
Vérification
Répondre
FORUMS
Questions
Forum Excel
Pb ouverture fichier : contenu illisible
Texte copié dans le presse-papier
