Bonjour,

je suis en posession de ce type de donnees sur une seul colone :

(4185),(306),F1.00,
(4186),(307,308),F1.00,
(4187),(308,309),F1.00,
(4188),(309,310),F1.00,
(4189),(287-331),F1.00,
(4190),(287-337),F1.00,
(4191),(289-318),F1.00,
(4192),(236-240,253,289-321),F1.00,
(4193),(304-321),F1.00,
(4224),(369,370),F1.00,
(4225),(370-371),F1.00, Et cela sur des miliers de
lignes..

Bonjour,

J'ai donc une colone ou ce trouve quelques choses du genre
(4185),(306),F1.00,
(4186),(307,308),F1.00,
(4187),(308,309),F1.00,
(4188),(309,310),F1.00,
(4189),(287-331),F1.00,
(4190),(287-337),F1.00,
(4191),(289-318),F1.00,
(4192),(236-240,253,289-321),F1.00,
(4193),(304-321),F1.00,
(4224),(369,370),F1.00,
(4225),(370-371),F1.00,

Formule "Somme si": je veux que l'argument soit dépendant d'une date indiquée
dans un tableau. Exemple (">E4") E4 = 11.02.08: comment dois je écrire
l'argument, supérieur à E4 pour avoir la possibilité de modifier la date de
référence à tout instant
Merci de votre aide

Bonsoir,

j'ai une feuille qui contient toutes mes données clients.
J'ai repris du code sur un fil développé ici que j'ai modifié (pas grand
chose vu que je suis pas très doué) et comme suit : J'ai plusieurs butons...

Bonjour à toutes et à tous,

Je vais très souvent sur le fabuleux site d'Excelabo. J'ai trouvé les
macros ci-dessous et ai essayé de les utiliser pour mes deux fichiers à
comparer. Lorsque je les lance j'ai un sablier et le message suivant
Microsoft Excel (ne répond pas). voici les macros, je ne vois pas où est le
problème. merci à vous

Sub Comparaison1()
Application.ScreenUpdating = False
Dim Collection1 As New Collection, collection2 As New Collection
Dim Cellule1 As Range, Cellule2 As Range
Dim Element1 As Object, Element2 As Object
Dim Time1 As Date, Time2 As Date
Time1 = Now()

Workbooks("classeur1.xls").Activate
For Each Cellule1 In Range("a:a")

Collection1.Add Cellule1
Next Cellule1

Workbooks("classeur2.xls").Activate
For Each Cellule2 In Range("a:a")

Bonjour,

Je possède une macro qui inscrit un lien hypertexte chaque fois qu'il trouve
une image correspondante dans un répertoire donné, puis dans une autre
colonne donne ses dimensions en pixels.

J'aimerai maintenant afficher (dans une autre cellule) la vignette de
l'image correspondante (taille d'origine parfois 2500px !). Voir je possède
aussi un autre répertoire où ses images sont optimisées en 60 ou 65px.

Pouvez-vous me guider pas à pas sachant que je ne connais rien de vba ?
J'aimerais avoir une macro indépendante sinon voici l'existante :

Bonjour,
Je mets en place une MFC par cette macro.(ci-dessous)
Lorsque je rentre une date en $A$24 la MFC s'exécute normalement. En
revanche, si dans cette même cellule je tape = maintenant(), le
résultat n'est pas le même.
Quelqu'un saurai me dire pourquoi?
Merci JP

Sub Conditions()
For Each cell In Selection
cell.Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression,
Formula1:="=$A$" & cell.Row & "=$A$24"
Selection.FormatConditions(1).Interior.ColorIndex = 3
Next
End Sub

Bonsoir à tous,
Dans le dossier Startup, j'ai un fichier Excel qui s'ouvre automatiquement à
l'ouverture d'Excel.
Comment empêcher Excel de faire une copie automatique dans le dossier "
Startup " et même une copie de cette copie? Ils s'ouvrent tous les 3 !!
Grand merci de votre attention.
diddy01

Bonsoir,

sur une page j'ai 2 fois la mème instruction et je suis en conflit. Est-il
possible de les réunir ?
voici la première instruction

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address <> "$J$6" Then Exit Sub
ValideSaisie
End Sub

Bonjour à tous,

J’ai une macro pour empêcher la saisie d’une valeur dans une cellule si
cette même valeur existe déjà dans une colonne.
J’aimerais lors d’une saisie déjà existante, que la textbox « saisissez un
autre numéro, celui-ci existe déjà », débogue ou mette fin à l’erreur
d’exécution ‘1004’, la méthode Select de la classe Range a échoué.
L’erreur est mise en couleur à Target.Select

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 5 Then
If Application.WorksheetFunction. _
CountIf(Range("E:E"), Target.Value) > 1 Then

MsgBox "saisissez un autre numéro, celui-ci existe déjà"
Target.Value = ""
Target.Select
End If
End If
End Sub