Détécter les numéros de lignes modifiées suit
Fermé
OMien
-
11 déc. 2007 à 12:14
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 11 déc. 2007 à 16:08
phil232 Messages postés 607 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 31 janvier 2008 - 11 déc. 2007 à 16:08
A voir également:
- Détécter les numéros de lignes modifiées suit
- Whatsapp 2 numéros - Guide
- Afficher toutes les lignes masquées excel ✓ - Forum Excel
- Ce fichier est une image au format png dont l’extension a été modifiée. trouvez le moyen de l’ouvrir. quel mot apparaît ? ✓ - Forum Photoshop
- Numeros en 09 ✓ - Forum Mobile
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
5 réponses
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
11 déc. 2007 à 14:35
11 déc. 2007 à 14:35
il n'ya qu 65536 * 256 cellules dans excel suffit de les scanner avant copy paster transférer le contenu de toutes les cellules dans un array et après re-scanner et comparer
XL Help suggère :
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
' runs when a sheet is changed
End Sub
XL Help suggère :
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
' runs when a sheet is changed
End Sub
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
11 déc. 2007 à 14:59
11 déc. 2007 à 14:59
bien sur :))
mais ceci ne depend au moins pas d'une sélection
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
' runs when a sheet is changed
End Sub189 message(s) posté(s) depuis le mercredi 21 novembre 2007
t'as déjà le range qui a changé, je crois qu'on peut faire mieux qiue ça
mais ceci ne depend au moins pas d'une sélection
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
' runs when a sheet is changed
End Sub189 message(s) posté(s) depuis le mercredi 21 novembre 2007
t'as déjà le range qui a changé, je crois qu'on peut faire mieux qiue ça
Resolved !
Pour mon besoin, je mets la première cellule de la ligne à True à chaque fois que cette dernière est modifiée, ce qui me permet de tester la ligne avant de renseigner l'info les fois suivantes.
Ce test que je fais permet d'améliorer les performances considérablement.
Voici mon code :
Code :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Selection
If Sheet1.Cells(Cell.Row, 1).Value <> True Then
Sheet1.Cells(Cell.Row, 1).Value = True
End If
Next Cell
End Sub
Pour mon besoin, je mets la première cellule de la ligne à True à chaque fois que cette dernière est modifiée, ce qui me permet de tester la ligne avant de renseigner l'info les fois suivantes.
Ce test que je fais permet d'améliorer les performances considérablement.
Voici mon code :
Code :
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Selection
If Sheet1.Cells(Cell.Row, 1).Value <> True Then
Sheet1.Cells(Cell.Row, 1).Value = True
End If
Next Cell
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
11 déc. 2007 à 16:08
11 déc. 2007 à 16:08
For Each Cell In Selection
If Sheet1.Cells(Cell.Row, 1).Value <> True Then
Sheet1.Cells(Cell.Row, 1).Value = True
End If
Next Cell
puisque de toute façon tu mets tout sur TRUE ceci est encore plus vite je penses
Range("LineHasChanged").Value = True
If Sheet1.Cells(Cell.Row, 1).Value <> True Then
Sheet1.Cells(Cell.Row, 1).Value = True
End If
Next Cell
puisque de toute façon tu mets tout sur TRUE ceci est encore plus vite je penses
Range("LineHasChanged").Value = True