Aide macro - copier / coller valeur max d'une ligne
Résolu/Fermé
kaiser4
Messages postés
109
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 mars 2024
-
23 oct. 2013 à 14:45
kaiser4 Messages postés 109 Date d'inscription lundi 2 juillet 2007 Statut Membre Dernière intervention 11 mars 2024 - 24 oct. 2013 à 10:21
kaiser4 Messages postés 109 Date d'inscription lundi 2 juillet 2007 Statut Membre Dernière intervention 11 mars 2024 - 24 oct. 2013 à 10:21
A voir également:
- Aide macro - copier / coller valeur max d'une ligne
- I14 pro max - Guide
- Copier une vidéo youtube - Guide
- Copier coller pdf - Guide
- Apparaitre hors ligne instagram - Guide
- Vente en ligne particulier - Guide
5 réponses
tyros25
Messages postés
127
Date d'inscription
vendredi 2 janvier 2009
Statut
Membre
Dernière intervention
5 novembre 2017
7
23 oct. 2013 à 16:26
23 oct. 2013 à 16:26
Crée une macro comme celà :
Dim i as integer
For i = 1 to 4
If Range("B" & i)>Range("C" & i)
Range("C" & i)=Range("B" & i).Value
End if
If Range("C" & i)>Range("D" & i)
Range("D" & i)=Range("C" & i).Value
End if
If Range("D" & i)>Range("E" & i)
Range("E" & i)=Range("D" & i).Value
End if
End for
kaiser4
Messages postés
109
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 mars 2024
2
24 oct. 2013 à 08:34
24 oct. 2013 à 08:34
Bonjour,
Merci pour ton aide, mais cela ne fonctionne pas.
Apparemment il y a des erreurs de compilation.
J'ai bien vérifié mon copier coller, essayeé de modifier la macro pour éviter les erreurs, mais cela ne fonctionne pas.
Merci d'avance.
Merci pour ton aide, mais cela ne fonctionne pas.
Apparemment il y a des erreurs de compilation.
J'ai bien vérifié mon copier coller, essayeé de modifier la macro pour éviter les erreurs, mais cela ne fonctionne pas.
Merci d'avance.
tyros25
Messages postés
127
Date d'inscription
vendredi 2 janvier 2009
Statut
Membre
Dernière intervention
5 novembre 2017
7
24 oct. 2013 à 09:56
24 oct. 2013 à 09:56
Essaye en enlevant les "%" de tes cases
Ca vient peut-être de ça ! :)
Ca vient peut-être de ça ! :)
kaiser4
Messages postés
109
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 mars 2024
2
24 oct. 2013 à 10:09
24 oct. 2013 à 10:09
J'ai essayé en enlevant les % des cases, mais toujours le même message d'erreur.
Erreur de syntage, erreur de compilation
Les valeurs à scruter se trouvent de I5 jusqu'a S15.
Merci de ton aide.
Erreur de syntage, erreur de compilation
Les valeurs à scruter se trouvent de I5 jusqu'a S15.
Merci de ton aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
kaiser4
Messages postés
109
Date d'inscription
lundi 2 juillet 2007
Statut
Membre
Dernière intervention
11 mars 2024
2
Modifié par kaiser4 le 24/10/2013 à 10:21
Modifié par kaiser4 le 24/10/2013 à 10:21
J'ai rectifier suite au message d'erreur, en suivant l'aide excel.
Dim i As Integer
For i = 1 To 4
If Range("B" & i) > Range("C" & i) Then
Range("C" & i) = Range("B" & i).Value
End If
If Range("C" & i) > Range("D" & i) Then
Range("D" & i) = Range("C" & i).Value
End If
If Range("D" & i) > Range("E" & i) Then
Range("E" & i) = Range("D" & i).Value
End If
Next
Cela fonctionne, merci beaucoup.
Je vais me débrouiller maintenant pour que la macro scrute les bonnes cases.
Encore merci A+.
Dim i As Integer
For i = 1 To 4
If Range("B" & i) > Range("C" & i) Then
Range("C" & i) = Range("B" & i).Value
End If
If Range("C" & i) > Range("D" & i) Then
Range("D" & i) = Range("C" & i).Value
End If
If Range("D" & i) > Range("E" & i) Then
Range("E" & i) = Range("D" & i).Value
End If
Next
Cela fonctionne, merci beaucoup.
Je vais me débrouiller maintenant pour que la macro scrute les bonnes cases.
Encore merci A+.