Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & I).Value = "" Then
Else
Range("B" & I).Value = Range("B" & I).Value * 1.1
End If
Next I
End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir
du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en
respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond :
Erreur d'éxécution'13' ...........Incompatibilité de Type
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut DC,
Peut-être qu'une cellule contient autre chose qu'un nombre ?
Dans ce cas, rajoute une condition en utilisant la fonction isnumeric dans le If.
A+ Nicolas B.
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Salut DC,
Peut-être qu'une cellule contient autre chose qu'un nombre ?
Dans ce cas, rajoute une condition en utilisant la fonction isnumeric
dans le If.
A+
Nicolas B.
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & I).Value = "" Then
Else
Range("B" & I).Value = Range("B" & I).Value * 1.1
End If
Next I
End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir
du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en
respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond :
Erreur d'éxécution'13' ...........Incompatibilité de Type
Peut-être qu'une cellule contient autre chose qu'un nombre ?
Dans ce cas, rajoute une condition en utilisant la fonction isnumeric dans le If.
A+ Nicolas B.
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Jacky
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Bonsoir
Sûrement un espace dans une cellule considéré comme du texte
Essaie:
'-----------
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then
Range("B" & i).Value = Range("B" & i).Value * 1.1
End If
Next i
'----------
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430ca567$0$5365$8fcfb975@news.wanadoo.fr...
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & I).Value = "" Then
Else
Range("B" & I).Value = Range("B" & I).Value * 1.1
End If
Next I
End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir
du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en
respectant les blancs ( cellules vides ), dues à la structure de la
feuille.
VB me répond :
Erreur d'éxécution'13' ...........Incompatibilité de Type
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
DC
Bonjour à Tous..........Bonjour Nicolas B et Jacky,
Chapeau pour l'éfficacité et la rapidité de réponses!
Je crois que je vais opter pour la réponse de Jacky, car après essais, elle à fonctionnée du premier coup, Mais je pense que vos 2 analyses se rejoignes....Merci.....Merci.!
Salutations.!.........Encore un grand Merci.!........DC
"Jacky" a écrit dans le message de news:
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Bonjour à Tous..........Bonjour Nicolas B et Jacky,
Chapeau pour l'éfficacité et la rapidité de réponses!
Je crois que je vais opter pour la réponse de Jacky, car après essais, elle
à fonctionnée du premier coup, Mais je pense que vos 2 analyses se
rejoignes....Merci.....Merci.!
Salutations.!.........Encore un grand Merci.!........DC
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
O6I595MqFHA.3516@TK2MSFTNGP15.phx.gbl...
Bonsoir
Sûrement un espace dans une cellule considéré comme du texte
Essaie:
'-----------
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then
Range("B" & i).Value = Range("B" & i).Value * 1.1
End If
Next i
'----------
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430ca567$0$5365$8fcfb975@news.wanadoo.fr...
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & I).Value = "" Then
Else
Range("B" & I).Value = Range("B" & I).Value * 1.1
End If
Next I
End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû
intervenir
du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs
en
respectant les blancs ( cellules vides ), dues à la structure de la
feuille.
VB me répond :
Erreur d'éxécution'13' ...........Incompatibilité de Type
Bonjour à Tous..........Bonjour Nicolas B et Jacky,
Chapeau pour l'éfficacité et la rapidité de réponses!
Je crois que je vais opter pour la réponse de Jacky, car après essais, elle à fonctionnée du premier coup, Mais je pense que vos 2 analyses se rejoignes....Merci.....Merci.!
Salutations.!.........Encore un grand Merci.!........DC
"Jacky" a écrit dans le message de news:
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
DC
Bonjour à Tous..............Bonjour Jacky,
En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que je l'utilise ( Merci AV )
Pour ce qui est de notre macro, et bien ta première version était la bonne, elle active le module de feuille qui inscrit la date en colonne N lorsque l'on change avec cette macro les valeurs dans la colonne L
C'est moi qui avait mal construit la commande d'éxécution et qui m'étonnais que ça ne fonctionne pas.
Merci, pour tout le travail que ça représente.
Salutation.!........encore un grand Merci.!........DC
"Jacky" a écrit dans le message de news:
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Bonjour à Tous..............Bonjour Jacky,
En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que je
l'utilise ( Merci AV )
Pour ce qui est de notre macro, et bien ta première version était la bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque
l'on change avec cette macro les valeurs dans la colonne L
C'est moi qui avait mal construit la commande d'éxécution
et qui m'étonnais que ça ne fonctionne pas.
Merci, pour tout le travail que ça représente.
Salutation.!........encore un grand Merci.!........DC
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
O6I595MqFHA.3516@TK2MSFTNGP15.phx.gbl...
Bonsoir
Sûrement un espace dans une cellule considéré comme du texte
Essaie:
'-----------
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then
Range("B" & i).Value = Range("B" & i).Value * 1.1
End If
Next i
'----------
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430ca567$0$5365$8fcfb975@news.wanadoo.fr...
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & I).Value = "" Then
Else
Range("B" & I).Value = Range("B" & I).Value * 1.1
End If
Next I
End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû
intervenir
du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs
en
respectant les blancs ( cellules vides ), dues à la structure de la
feuille.
VB me répond :
Erreur d'éxécution'13' ...........Incompatibilité de Type
En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que je l'utilise ( Merci AV )
Pour ce qui est de notre macro, et bien ta première version était la bonne, elle active le module de feuille qui inscrit la date en colonne N lorsque l'on change avec cette macro les valeurs dans la colonne L
C'est moi qui avait mal construit la commande d'éxécution et qui m'étonnais que ça ne fonctionne pas.
Merci, pour tout le travail que ça représente.
Salutation.!........encore un grand Merci.!........DC
"Jacky" a écrit dans le message de news:
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Jacky
Re..
Pour ce qui est de notre macro, et bien ta première version était la bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque
Je ne pense pas, elle supprime la formule insérée dans la cellule par le code d'AV Aussi, vaut mieux utiliser la dernière version, sauf si aucune données n'est plus entrées manuellement. A toi de voir.
Salutations JJ
"DC" a écrit dans le message de news:430dd4b6$0$1744$
Bonjour à Tous..............Bonjour Jacky,
En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que je
l'utilise ( Merci AV )
Pour ce qui est de notre macro, et bien ta première version était la bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque l'on change avec cette macro les valeurs dans la colonne L
C'est moi qui avait mal construit la commande d'éxécution et qui m'étonnais que ça ne fonctionne pas.
Merci, pour tout le travail que ça représente.
Salutation.!........encore un grand Merci.!........DC
"Jacky" a écrit dans le message de news:
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
Salutation!.........Merci d'avance........DC
Re..
Pour ce qui est de notre macro, et bien ta première version était la
bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque
Je ne pense pas, elle supprime la formule insérée dans la cellule par le
code d'AV
Aussi, vaut mieux utiliser la dernière version, sauf si aucune données n'est
plus entrées manuellement.
A toi de voir.
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430dd4b6$0$1744$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..............Bonjour Jacky,
En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que
je
l'utilise ( Merci AV )
Pour ce qui est de notre macro, et bien ta première version était la
bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque
l'on change avec cette macro les valeurs dans la colonne L
C'est moi qui avait mal construit la commande d'éxécution
et qui m'étonnais que ça ne fonctionne pas.
Merci, pour tout le travail que ça représente.
Salutation.!........encore un grand Merci.!........DC
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
O6I595MqFHA.3516@TK2MSFTNGP15.phx.gbl...
Bonsoir
Sûrement un espace dans une cellule considéré comme du texte
Essaie:
'-----------
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then
Range("B" & i).Value = Range("B" & i).Value * 1.1
End If
Next i
'----------
Salutations
JJ
"DC" <da.campion@hotmail.fr> a écrit dans le message de
news:430ca567$0$5365$8fcfb975@news.wanadoo.fr...
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire()
'
' Majoration_pourcentage_prix_unitaire Macro
' Macro enregistrée le 20/08/2005 par Daniel
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Range("B" & I).Value = "" Then
Else
Range("B" & I).Value = Range("B" & I).Value * 1.1
End If
Next I
End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû
intervenir
du façon non optimale, car depuis je suis dans le cirage et plus rien
ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs
en
respectant les blancs ( cellules vides ), dues à la structure de la
feuille.
VB me répond :
Erreur d'éxécution'13' ...........Incompatibilité de Type
Pour ce qui est de notre macro, et bien ta première version était la bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque
Je ne pense pas, elle supprime la formule insérée dans la cellule par le code d'AV Aussi, vaut mieux utiliser la dernière version, sauf si aucune données n'est plus entrées manuellement. A toi de voir.
Salutations JJ
"DC" a écrit dans le message de news:430dd4b6$0$1744$
Bonjour à Tous..............Bonjour Jacky,
En effet le module de feuille me vient de AV et ça fait plus de 3 Ans que je
l'utilise ( Merci AV )
Pour ce qui est de notre macro, et bien ta première version était la bonne,
elle active le module de feuille qui inscrit la date en colonne N lorsque l'on change avec cette macro les valeurs dans la colonne L
C'est moi qui avait mal construit la commande d'éxécution et qui m'étonnais que ça ne fonctionne pas.
Merci, pour tout le travail que ça représente.
Salutation.!........encore un grand Merci.!........DC
"Jacky" a écrit dans le message de news:
Bonsoir Sûrement un espace dans une cellule considéré comme du texte Essaie: '----------- For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If IsNumeric(Range("B" & i)) And Range("b" & i) <> "" Then Range("B" & i).Value = Range("B" & i).Value * 1.1 End If Next i '---------- Salutations JJ
"DC" a écrit dans le message de news:430ca567$0$5365$
Bonjour à Tous,
Sub Majoration_pourcentage_prix_unitaire() ' ' Majoration_pourcentage_prix_unitaire Macro ' Macro enregistrée le 20/08/2005 par Daniel ' ' Touche de raccourci du clavier: Ctrl+Maj+M ' For I = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row If Range("B" & I).Value = "" Then Else Range("B" & I).Value = Range("B" & I).Value * 1.1 End If Next I End Sub
Cette macro fonctionnait très bien, mais dans ma bétise j'ai dû intervenir du façon non optimale, car depuis je suis dans le cirage et plus rien ne
fonctionne.
L'objectif, c'est de majorer avec un pourcentage une colonne de valeurs en respectant les blancs ( cellules vides ), dues à la structure de la feuille.
VB me répond : Erreur d'éxécution'13' ...........Incompatibilité de Type
