Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
Essaie ceci :
'--------------------------------------
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Value = _
Range(Col_rep & i).Value
Else
Range(Col_rep & i).Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Value
Range(Col_rep & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End Sub
'--------------------------------------
"ttcpp" a écrit dans le message de groupe de discussion
:
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
Essaie ceci :
'--------------------------------------
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Value = _
Range(Col_rep & i).Value
Else
Range(Col_rep & i).Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Value
Range(Col_rep & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End Sub
'--------------------------------------
"ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: 25C456C1-6AA7-4E29-8CCB-17E337006292@microsoft.com...
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
Essaie ceci :
'--------------------------------------
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Value = _
Range(Col_rep & i).Value
Else
Range(Col_rep & i).Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Value
Range(Col_rep & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End Sub
'--------------------------------------
"ttcpp" a écrit dans le message de groupe de discussion
:
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
bonjour Thierry ,
dit moi si c'est mieux,
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = "C"
For i = 1 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i)) Then
Range(Col_rep & i) = Range(Col_rep & i)
Else
With Range(Col_rep & i)
.Formula = "=" & Range(Col_rep & i) & " - " & Range("AE" & i)
.Font.ColorIndex = 5
.NumberFormat = "0.000000" ' à adapter
End If
Next i
End Sub
isabelle
ttcpp a écrit :Bonjour,
J'ai écris une petite macro qui me permet de faire une correction
dans une cellule en gardant sa valeur d'origine.
exemple : A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les
autres. J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & ""
& i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" &
Col_rep & "" & i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
bonjour Thierry ,
dit moi si c'est mieux,
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = "C"
For i = 1 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i)) Then
Range(Col_rep & i) = Range(Col_rep & i)
Else
With Range(Col_rep & i)
.Formula = "=" & Range(Col_rep & i) & " - " & Range("AE" & i)
.Font.ColorIndex = 5
.NumberFormat = "0.000000" ' à adapter
End If
Next i
End Sub
isabelle
ttcpp a écrit :
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction
dans une cellule en gardant sa valeur d'origine.
exemple : A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les
autres. J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & ""
& i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" &
Col_rep & "" & i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
bonjour Thierry ,
dit moi si c'est mieux,
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = "C"
For i = 1 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i)) Then
Range(Col_rep & i) = Range(Col_rep & i)
Else
With Range(Col_rep & i)
.Formula = "=" & Range(Col_rep & i) & " - " & Range("AE" & i)
.Font.ColorIndex = 5
.NumberFormat = "0.000000" ' à adapter
End If
Next i
End Sub
isabelle
ttcpp a écrit :Bonjour,
J'ai écris une petite macro qui me permet de faire une correction
dans une cellule en gardant sa valeur d'origine.
exemple : A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les
autres. J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & ""
& i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" &
Col_rep & "" & i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
Essaie ceci :
'--------------------------------------
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Value = _
Range(Col_rep & i).Value
Else
Range(Col_rep & i).Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Value
Range(Col_rep & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End Sub
'--------------------------------------
"ttcpp" a écrit dans le message de groupe de
discussion
:
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
Essaie ceci :
'--------------------------------------
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Value = _
Range(Col_rep & i).Value
Else
Range(Col_rep & i).Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Value
Range(Col_rep & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End Sub
'--------------------------------------
"ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de
discussion
: 25C456C1-6AA7-4E29-8CCB-17E337006292@microsoft.com...
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Bonjour,
Essaie ceci :
'--------------------------------------
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Value = _
Range(Col_rep & i).Value
Else
Range(Col_rep & i).Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Value
Range(Col_rep & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End Sub
'--------------------------------------
"ttcpp" a écrit dans le message de groupe de
discussion
:
Bonjour,
J'ai écris une petite macro qui me permet de faire une correction dans une
cellule en gardant sa valeur d'origine.
exemple :
A1 0
Correction 10
A10-10
Cela marche très bien pour des valeurs entières mais pas pour les autres.
J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
voici le code écris :
Sub Test_Operation()
Dim i As Double
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
If IsEmpty(Range("AE" & i).Value) Then
Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
i).Value
Else
Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
& i).Value & " - " & Range("AE" & i).Value
Range("" & Col_rep & "" & i).Select
Selection.Font.ColorIndex = 5
End If
Next i
End sub
Merci pour votre aide
Thierry
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Address(0, 0) & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
End Sub
"ttcpp" a écrit dans le message de groupe de discussion
:
Merci pour ta réponse.
Mais je n'ai pas le résultat escompté.
En fait je veux voir la formule dans la cellule au lieu du résultat.
"michdenis" wrote:
> Bonjour,
>
> Essaie ceci :
>
> '--------------------------------------
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Value = _
> Range(Col_rep & i).Value
> Else
> Range(Col_rep & i).Formula = "=" & _
> Range(Col_rep & i).Value & " - " & _
> Range("AE" & i).Value
> Range(Col_rep & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End Sub
> '--------------------------------------
>
>
>
> "ttcpp" a écrit dans le message de groupe de
> discussion
> :
> Bonjour,
>
> J'ai écris une petite macro qui me permet de faire une correction dans une
> cellule en gardant sa valeur d'origine.
> exemple :
> A1 0
> Correction 10
> A10-10
> Cela marche très bien pour des valeurs entières mais pas pour les autres.
> J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
>
> voici le code écris :
> Sub Test_Operation()
> Dim i As Double
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
>
> For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> If IsEmpty(Range("AE" & i).Value) Then
> Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> i).Value
> Else
> Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> & i).Value & " - " & Range("AE" & i).Value
> Range("" & Col_rep & "" & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End sub
>
> Merci pour votre aide
>
> Thierry
>
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Address(0, 0) & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
End Sub
"ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: C4F98749-8A3B-47F8-8D15-807F34C151C7@microsoft.com...
Merci pour ta réponse.
Mais je n'ai pas le résultat escompté.
En fait je veux voir la formule dans la cellule au lieu du résultat.
"michdenis" wrote:
> Bonjour,
>
> Essaie ceci :
>
> '--------------------------------------
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Value = _
> Range(Col_rep & i).Value
> Else
> Range(Col_rep & i).Formula = "=" & _
> Range(Col_rep & i).Value & " - " & _
> Range("AE" & i).Value
> Range(Col_rep & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End Sub
> '--------------------------------------
>
>
>
> "ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion
> : 25C456C1-6AA7-4E29-8CCB-17E337006292@microsoft.com...
> Bonjour,
>
> J'ai écris une petite macro qui me permet de faire une correction dans une
> cellule en gardant sa valeur d'origine.
> exemple :
> A1 0
> Correction 10
> A10-10
> Cela marche très bien pour des valeurs entières mais pas pour les autres.
> J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
>
> voici le code écris :
> Sub Test_Operation()
> Dim i As Double
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
>
> For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> If IsEmpty(Range("AE" & i).Value) Then
> Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> i).Value
> Else
> Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> & i).Value & " - " & Range("AE" & i).Value
> Range("" & Col_rep & "" & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End sub
>
> Merci pour votre aide
>
> Thierry
>
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Address(0, 0) & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
End Sub
"ttcpp" a écrit dans le message de groupe de discussion
:
Merci pour ta réponse.
Mais je n'ai pas le résultat escompté.
En fait je veux voir la formule dans la cellule au lieu du résultat.
"michdenis" wrote:
> Bonjour,
>
> Essaie ceci :
>
> '--------------------------------------
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Value = _
> Range(Col_rep & i).Value
> Else
> Range(Col_rep & i).Formula = "=" & _
> Range(Col_rep & i).Value & " - " & _
> Range("AE" & i).Value
> Range(Col_rep & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End Sub
> '--------------------------------------
>
>
>
> "ttcpp" a écrit dans le message de groupe de
> discussion
> :
> Bonjour,
>
> J'ai écris une petite macro qui me permet de faire une correction dans une
> cellule en gardant sa valeur d'origine.
> exemple :
> A1 0
> Correction 10
> A10-10
> Cela marche très bien pour des valeurs entières mais pas pour les autres.
> J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
>
> voici le code écris :
> Sub Test_Operation()
> Dim i As Double
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
>
> For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> If IsEmpty(Range("AE" & i).Value) Then
> Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> i).Value
> Else
> Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> & i).Value & " - " & Range("AE" & i).Value
> Range("" & Col_rep & "" & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End sub
>
> Merci pour votre aide
>
> Thierry
>
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Address(0, 0) & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
End Sub
"ttcpp" a écrit dans le message de groupe de
discussion
:
Merci pour ta réponse.
Mais je n'ai pas le résultat escompté.
En fait je veux voir la formule dans la cellule au lieu du résultat.
"michdenis" wrote:
> Bonjour,
>
> Essaie ceci :
>
> '--------------------------------------
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Value = _
> Range(Col_rep & i).Value
> Else
> Range(Col_rep & i).Formula = "=" & _
> Range(Col_rep & i).Value & " - " & _
> Range("AE" & i).Value
> Range(Col_rep & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End Sub
> '--------------------------------------
>
>
>
> "ttcpp" a écrit dans le message de groupe de
> discussion
> :
> Bonjour,
>
> J'ai écris une petite macro qui me permet de faire une correction dans une
> cellule en gardant sa valeur d'origine.
> exemple :
> A1 0
> Correction 10
> A10-10
> Cela marche très bien pour des valeurs entières mais pas pour les autres.
> J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
>
> voici le code écris :
> Sub Test_Operation()
> Dim i As Double
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
>
> For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> If IsEmpty(Range("AE" & i).Value) Then
> Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> i).Value
> Else
> Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> & i).Value & " - " & Range("AE" & i).Value
> Range("" & Col_rep & "" & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End sub
>
> Merci pour votre aide
>
> Thierry
>
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Address(0, 0) & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
End Sub
"ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de
discussion
: C4F98749-8A3B-47F8-8D15-807F34C151C7@microsoft.com...
Merci pour ta réponse.
Mais je n'ai pas le résultat escompté.
En fait je veux voir la formule dans la cellule au lieu du résultat.
"michdenis" wrote:
> Bonjour,
>
> Essaie ceci :
>
> '--------------------------------------
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Value = _
> Range(Col_rep & i).Value
> Else
> Range(Col_rep & i).Formula = "=" & _
> Range(Col_rep & i).Value & " - " & _
> Range("AE" & i).Value
> Range(Col_rep & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End Sub
> '--------------------------------------
>
>
>
> "ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion
> : 25C456C1-6AA7-4E29-8CCB-17E337006292@microsoft.com...
> Bonjour,
>
> J'ai écris une petite macro qui me permet de faire une correction dans une
> cellule en gardant sa valeur d'origine.
> exemple :
> A1 0
> Correction 10
> A10-10
> Cela marche très bien pour des valeurs entières mais pas pour les autres.
> J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
>
> voici le code écris :
> Sub Test_Operation()
> Dim i As Double
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
>
> For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> If IsEmpty(Range("AE" & i).Value) Then
> Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> i).Value
> Else
> Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> & i).Value & " - " & Range("AE" & i).Value
> Range("" & Col_rep & "" & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End sub
>
> Merci pour votre aide
>
> Thierry
>
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Address(0, 0) & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
End Sub
"ttcpp" a écrit dans le message de groupe de
discussion
:
Merci pour ta réponse.
Mais je n'ai pas le résultat escompté.
En fait je veux voir la formule dans la cellule au lieu du résultat.
"michdenis" wrote:
> Bonjour,
>
> Essaie ceci :
>
> '--------------------------------------
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Value = _
> Range(Col_rep & i).Value
> Else
> Range(Col_rep & i).Formula = "=" & _
> Range(Col_rep & i).Value & " - " & _
> Range("AE" & i).Value
> Range(Col_rep & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End Sub
> '--------------------------------------
>
>
>
> "ttcpp" a écrit dans le message de groupe de
> discussion
> :
> Bonjour,
>
> J'ai écris une petite macro qui me permet de faire une correction dans une
> cellule en gardant sa valeur d'origine.
> exemple :
> A1 0
> Correction 10
> A10-10
> Cela marche très bien pour des valeurs entières mais pas pour les autres.
> J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
>
> voici le code écris :
> Sub Test_Operation()
> Dim i As Double
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
>
> For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> If IsEmpty(Range("AE" & i).Value) Then
> Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> i).Value
> Else
> Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> & i).Value & " - " & Range("AE" & i).Value
> Range("" & Col_rep & "" & i).Select
> Selection.Font.ColorIndex = 5
> End If
> Next i
> End sub
>
> Merci pour votre aide
>
> Thierry
>
Ta demande initiale était alors loin d'être claire !
Essaie ceci :
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
Application.EnableEvents = False
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
Application.EnableEvents = True
End Sub
"ttcpp" a écrit dans le message de groupe de discussion
:
Désolé mais cela ne fonctionne pas du tout
Cela boucle sans fin ???
et en plus dans la cellule j'ai Ã-AE3 alieu d'avoir l'opération
C3 = (ancienne valeur de C3) - la valeur de AE
"michdenis" wrote:
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Formula = _
> "=" & Range(Col_rep & i).Address(0, 0)
> Else
> With Range(Col_rep & i)
> .Formula = "=" & _
> Range(Col_rep & i).Address(0, 0) & " - " & _
> Range("AE" & i).Address(0, 0)
> .Font.ColorIndex = 5
> End With
> End If
> Next i
> End Sub
>
>
>
>
>
> "ttcpp" a écrit dans le message de groupe de
> discussion
> :
> Merci pour ta réponse.
> Mais je n'ai pas le résultat escompté.
> En fait je veux voir la formule dans la cellule au lieu du résultat.
>
>
> "michdenis" wrote:
>
> > Bonjour,
> >
> > Essaie ceci :
> >
> > '--------------------------------------
> > Sub Test_Operation()
> > Dim i As Integer, DerLig As Long
> > Dim Col_rep As String
> > Col_rep = InputBox("Colonne a modifier :")
> > If Col_rep = "" Then Exit Sub
> > On Error Resume Next
> > Set rg = Range(Col_rep & 1)
> > If Err <> 0 Then
> > Err = 0
> > MsgBox "La donnée saisie ne représente " & _
> > "pas une lettre d'une colonne de la feuille." & _
> > " Opération annulée", vbCritical + vbOKOnly, "Attention"
> > Exit Sub
> > End If
> > DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> > For i = 30 To DerLig
> > If IsEmpty(Range("AE" & i).Value) Then
> > Range(Col_rep & i).Value = _
> > Range(Col_rep & i).Value
> > Else
> > Range(Col_rep & i).Formula = "=" & _
> > Range(Col_rep & i).Value & " - " & _
> > Range("AE" & i).Value
> > Range(Col_rep & i).Select
> > Selection.Font.ColorIndex = 5
> > End If
> > Next i
> > End Sub
> > '--------------------------------------
> >
> >
> >
> > "ttcpp" a écrit dans le message de groupe de
> > discussion
> > :
> > Bonjour,
> >
> > J'ai écris une petite macro qui me permet de faire une correction dans une
> > cellule en gardant sa valeur d'origine.
> > exemple :
> > A1 0
> > Correction 10
> > A10-10
> > Cela marche très bien pour des valeurs entières mais pas pour les autres.
> > J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
> >
> > voici le code écris :
> > Sub Test_Operation()
> > Dim i As Double
> > Dim Col_rep As String
> > Col_rep = InputBox("Colonne a modifier :")
> >
> > For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> > If IsEmpty(Range("AE" & i).Value) Then
> > Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> > i).Value
> > Else
> > Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> > & i).Value & " - " & Range("AE" & i).Value
> > Range("" & Col_rep & "" & i).Select
> > Selection.Font.ColorIndex = 5
> > End If
> > Next i
> > End sub
> >
> > Merci pour votre aide
> >
> > Thierry
> >
Ta demande initiale était alors loin d'être claire !
Essaie ceci :
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
Application.EnableEvents = False
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
Application.EnableEvents = True
End Sub
"ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de discussion
: 74C05008-1453-43EA-BD89-ECE257D7B690@microsoft.com...
Désolé mais cela ne fonctionne pas du tout
Cela boucle sans fin ???
et en plus dans la cellule j'ai Ã-AE3 alieu d'avoir l'opération
C3 = (ancienne valeur de C3) - la valeur de AE
"michdenis" wrote:
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Formula = _
> "=" & Range(Col_rep & i).Address(0, 0)
> Else
> With Range(Col_rep & i)
> .Formula = "=" & _
> Range(Col_rep & i).Address(0, 0) & " - " & _
> Range("AE" & i).Address(0, 0)
> .Font.ColorIndex = 5
> End With
> End If
> Next i
> End Sub
>
>
>
>
>
> "ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de
> discussion
> : C4F98749-8A3B-47F8-8D15-807F34C151C7@microsoft.com...
> Merci pour ta réponse.
> Mais je n'ai pas le résultat escompté.
> En fait je veux voir la formule dans la cellule au lieu du résultat.
>
>
> "michdenis" wrote:
>
> > Bonjour,
> >
> > Essaie ceci :
> >
> > '--------------------------------------
> > Sub Test_Operation()
> > Dim i As Integer, DerLig As Long
> > Dim Col_rep As String
> > Col_rep = InputBox("Colonne a modifier :")
> > If Col_rep = "" Then Exit Sub
> > On Error Resume Next
> > Set rg = Range(Col_rep & 1)
> > If Err <> 0 Then
> > Err = 0
> > MsgBox "La donnée saisie ne représente " & _
> > "pas une lettre d'une colonne de la feuille." & _
> > " Opération annulée", vbCritical + vbOKOnly, "Attention"
> > Exit Sub
> > End If
> > DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> > For i = 30 To DerLig
> > If IsEmpty(Range("AE" & i).Value) Then
> > Range(Col_rep & i).Value = _
> > Range(Col_rep & i).Value
> > Else
> > Range(Col_rep & i).Formula = "=" & _
> > Range(Col_rep & i).Value & " - " & _
> > Range("AE" & i).Value
> > Range(Col_rep & i).Select
> > Selection.Font.ColorIndex = 5
> > End If
> > Next i
> > End Sub
> > '--------------------------------------
> >
> >
> >
> > "ttcpp" <ttcpp@discussions.microsoft.com> a écrit dans le message de groupe de
> > discussion
> > : 25C456C1-6AA7-4E29-8CCB-17E337006292@microsoft.com...
> > Bonjour,
> >
> > J'ai écris une petite macro qui me permet de faire une correction dans une
> > cellule en gardant sa valeur d'origine.
> > exemple :
> > A1 0
> > Correction 10
> > A10-10
> > Cela marche très bien pour des valeurs entières mais pas pour les autres.
> > J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
> >
> > voici le code écris :
> > Sub Test_Operation()
> > Dim i As Double
> > Dim Col_rep As String
> > Col_rep = InputBox("Colonne a modifier :")
> >
> > For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> > If IsEmpty(Range("AE" & i).Value) Then
> > Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> > i).Value
> > Else
> > Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> > & i).Value & " - " & Range("AE" & i).Value
> > Range("" & Col_rep & "" & i).Select
> > Selection.Font.ColorIndex = 5
> > End If
> > Next i
> > End sub
> >
> > Merci pour votre aide
> >
> > Thierry
> >
Ta demande initiale était alors loin d'être claire !
Essaie ceci :
Sub Test_Operation()
Dim i As Integer, DerLig As Long
Dim Col_rep As String
Col_rep = InputBox("Colonne a modifier :")
If Col_rep = "" Then Exit Sub
On Error Resume Next
Set rg = Range(Col_rep & 1)
If Err <> 0 Then
Err = 0
MsgBox "La donnée saisie ne représente " & _
"pas une lettre d'une colonne de la feuille." & _
" Opération annulée", vbCritical + vbOKOnly, "Attention"
Exit Sub
End If
DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
Application.EnableEvents = False
For i = 30 To DerLig
If IsEmpty(Range("AE" & i).Value) Then
Range(Col_rep & i).Formula = _
"=" & Range(Col_rep & i).Address(0, 0)
Else
With Range(Col_rep & i)
.Formula = "=" & _
Range(Col_rep & i).Value & " - " & _
Range("AE" & i).Address(0, 0)
.Font.ColorIndex = 5
End With
End If
Next i
Application.EnableEvents = True
End Sub
"ttcpp" a écrit dans le message de groupe de discussion
:
Désolé mais cela ne fonctionne pas du tout
Cela boucle sans fin ???
et en plus dans la cellule j'ai Ã-AE3 alieu d'avoir l'opération
C3 = (ancienne valeur de C3) - la valeur de AE
"michdenis" wrote:
> Sub Test_Operation()
> Dim i As Integer, DerLig As Long
> Dim Col_rep As String
> Col_rep = InputBox("Colonne a modifier :")
> If Col_rep = "" Then Exit Sub
> On Error Resume Next
> Set rg = Range(Col_rep & 1)
> If Err <> 0 Then
> Err = 0
> MsgBox "La donnée saisie ne représente " & _
> "pas une lettre d'une colonne de la feuille." & _
> " Opération annulée", vbCritical + vbOKOnly, "Attention"
> Exit Sub
> End If
> DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> For i = 30 To DerLig
> If IsEmpty(Range("AE" & i).Value) Then
> Range(Col_rep & i).Formula = _
> "=" & Range(Col_rep & i).Address(0, 0)
> Else
> With Range(Col_rep & i)
> .Formula = "=" & _
> Range(Col_rep & i).Address(0, 0) & " - " & _
> Range("AE" & i).Address(0, 0)
> .Font.ColorIndex = 5
> End With
> End If
> Next i
> End Sub
>
>
>
>
>
> "ttcpp" a écrit dans le message de groupe de
> discussion
> :
> Merci pour ta réponse.
> Mais je n'ai pas le résultat escompté.
> En fait je veux voir la formule dans la cellule au lieu du résultat.
>
>
> "michdenis" wrote:
>
> > Bonjour,
> >
> > Essaie ceci :
> >
> > '--------------------------------------
> > Sub Test_Operation()
> > Dim i As Integer, DerLig As Long
> > Dim Col_rep As String
> > Col_rep = InputBox("Colonne a modifier :")
> > If Col_rep = "" Then Exit Sub
> > On Error Resume Next
> > Set rg = Range(Col_rep & 1)
> > If Err <> 0 Then
> > Err = 0
> > MsgBox "La donnée saisie ne représente " & _
> > "pas une lettre d'une colonne de la feuille." & _
> > " Opération annulée", vbCritical + vbOKOnly, "Attention"
> > Exit Sub
> > End If
> > DerLig = ActiveSheet.Range("C65000").End(xlUp).Row
> > For i = 30 To DerLig
> > If IsEmpty(Range("AE" & i).Value) Then
> > Range(Col_rep & i).Value = _
> > Range(Col_rep & i).Value
> > Else
> > Range(Col_rep & i).Formula = "=" & _
> > Range(Col_rep & i).Value & " - " & _
> > Range("AE" & i).Value
> > Range(Col_rep & i).Select
> > Selection.Font.ColorIndex = 5
> > End If
> > Next i
> > End Sub
> > '--------------------------------------
> >
> >
> >
> > "ttcpp" a écrit dans le message de groupe de
> > discussion
> > :
> > Bonjour,
> >
> > J'ai écris une petite macro qui me permet de faire une correction dans une
> > cellule en gardant sa valeur d'origine.
> > exemple :
> > A1 0
> > Correction 10
> > A10-10
> > Cela marche très bien pour des valeurs entières mais pas pour les autres.
> > J'ai en retour un erreur 1004 que je n'arrive pas à corriger.
> >
> > voici le code écris :
> > Sub Test_Operation()
> > Dim i As Double
> > Dim Col_rep As String
> > Col_rep = InputBox("Colonne a modifier :")
> >
> > For i = 30 To ActiveSheet.Range("C65000").End(xlUp).Row
> > If IsEmpty(Range("AE" & i).Value) Then
> > Range("" & Col_rep & "" & i).Value = Range("" & Col_rep & "" &
> > i).Value
> > Else
> > Range("" & Col_rep & "" & i).Formula = "=" & Range("" & Col_rep & ""
> > & i).Value & " - " & Range("AE" & i).Value
> > Range("" & Col_rep & "" & i).Select
> > Selection.Font.ColorIndex = 5
> > End If
> > Next i
> > End sub
> >
> > Merci pour votre aide
> >
> > Thierry
> >
| En fait c'est la valeur de la cellule AE et non son adresse qu'il faut que
| je récupére.
Dans le code, tu changes la propriété .address(0,0) pour .Value
| En fait c'est la valeur de la cellule AE et non son adresse qu'il faut que
| je récupére.
Dans le code, tu changes la propriété .address(0,0) pour .Value
| En fait c'est la valeur de la cellule AE et non son adresse qu'il faut que
| je récupére.
Dans le code, tu changes la propriété .address(0,0) pour .Value