OVH Cloud OVH Cloud

aide macro excel remplacement certaine données selon conditions

7 réponses
Avatar
cliffburton57
Bonjour,

Sous XL 97, win XP
J'aurais besoin d'aide consernant les macros.
J'aimerai selectionner plusieurs lignes tableur, activer la macro pour
quelle modifie la valeur des collonnes C,D,E,G,H de ses lignes.
Si vous souhaitait me venir en aide et que vous desirez de plus ample
information, contactez-moi a cliffburton57@hotmail.com.

Merci d'avance !

Ps: Je n'ai que quelques notions de VB.

7 réponses

Avatar
michdenis
Bonjour cliffburton57,

Tu dois être plus précis dans ta demande. Chaque cellule, chaque ligne ou colonne
dans excel sont bien identifiées. Il est difficile de faire une macro sans savoir
exactement les plages de cellules concernées, le nom de la feuille et sans savoir
où sont les données qui doivent remplacer les données qui sont déjà là.


Salutations!



"cliffburton57" a écrit dans le message de news:

Bonjour,

Sous XL 97, win XP
J'aurais besoin d'aide consernant les macros.
J'aimerai selectionner plusieurs lignes tableur, activer la macro pour
quelle modifie la valeur des collonnes C,D,E,G,H de ses lignes.
Si vous souhaitait me venir en aide et que vous desirez de plus ample
information, contactez-moi a

Merci d'avance !

Ps: Je n'ai que quelques notions de VB.
Avatar
cliffburton57
Premierement merci d'avoir repondu a mon apel.

Alors jai un tableau qui ce defini comme tel

COLONNE H "Archivage"
Colonne M " Var fil1"
colonne N "Var astr"
Colonne O"Var Fil2"
Colonne P"Var Fil""
Colonne Q"Var disk"

La h correspond au type de donné exemple 15 " default"
Lorsque la cellule de la colonne h il faut que les case des collones
M,N,O,P,Q de la meme ligne soit respectivement egal a 2,1,0,0,2

Je reste disponible pour de plus ample informations
Merci d'avance


Bonjour cliffburton57,

Tu dois être plus précis dans ta demande. Chaque cellule, chaque ligne ou colonne
dans excel sont bien identifiées. Il est difficile de faire une macro sans savoir
exactement les plages de cellules concernées, le nom de la feuille et sans savoir
où sont les données qui doivent remplacer les données qui sont déjà là.


Salutations!



"cliffburton57" a écrit dans le message de news:

Bonjour,

Sous XL 97, win XP
J'aurais besoin d'aide consernant les macros.
J'aimerai selectionner plusieurs lignes tableur, activer la macro pour
quelle modifie la valeur des collonnes C,D,E,G,H de ses lignes.
Si vous souhaitait me venir en aide et que vous desirez de plus ample
information, contactez-moi a

Merci d'avance !

Ps: Je n'ai que quelques notions de VB.





Avatar
cliffburton57
!!!! Rectification !!!!

Alors mon tableau contient les informations suivante

Colonne H : VARTYPE
Colonne M : VARFIL1
Colonne N :VARASTR
Colonne O :VARFIL2
Colonne P :VARFIL3
Colonne Q :VARDISK

le but est de classer des informations par categories
Il faudrait que lorsque je choisit une ligne et que jactive la macro les
cellules de la lignes prenes les valeur 15,2,1,0,0,2 pour respectivement les
colonnes H,M,N,O,P,Q

Tous se deroule sur la feuil1.

Je reste dispo pour d'autres info
Merci d'avance
Avatar
michdenis
Bonjour cliffburton57,

J'ai compris ta présentation... ce que je ne comprends pas
c'est ce que doit faire la macro. Qu'est-ce qui doit déclencher
la macro ? Quel travail doit-elle faire ?


Salutations!


"cliffburton57" a écrit dans le message de news:

!!!! Rectification !!!!

Alors mon tableau contient les informations suivante

Colonne H : VARTYPE
Colonne M : VARFIL1
Colonne N :VARASTR
Colonne O :VARFIL2
Colonne P :VARFIL3
Colonne Q :VARDISK

le but est de classer des informations par categories
Il faudrait que lorsque je choisit une ligne et que jactive la macro les
cellules de la lignes prenes les valeur 15,2,1,0,0,2 pour respectivement les
colonnes H,M,N,O,P,Q

Tous se deroule sur la feuil1.

Je reste dispo pour d'autres info
Merci d'avance
Avatar
cliffburton57
bonjour,

Donc la macro est activer manuelement par un bouton dans la barre superieur.
1- on selectionne un ensemble de ligne
2- on active la macro
3- Elle remplace les valeur presente dans les colonnes H,M,N,O,P,Q par
respectivement les valeurs 15,2,1,0,0,2

Je reste a votre disposition pour tout autre informations
Merci d'avance
Avatar
michdenis
Bonjour cliffburton57,

Ce que tu n'as pas mentionné dans ta question,
est-ce que les colonnes devant être modifiées doivent
faire parti de la sélection. La réponse à cette question
dans l'exemple qui suit est Non.


'--------------------------------
Sub test()

Dim Rg As Range, a As Integer
Dim Arr As Variant, x as variant
Dim Arr1 As Variant

Arr = Array("H", "M", "N", "O", "P", "Q")
Arr1 = Array(15, 2, 1, 0, 0, 2)

If TypeName(Selection) = "Range" Then
Set Rg = Selection
Else
Exit Sub
End If

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each r In Rg.Rows
For Each x In Arr

Cells(r.Row, x) = Arr1(a)
a = a + 1
Next
a = 0
Next
Set Rg = Nothing
End Sub
'--------------------------------


Salutations!



"cliffburton57" a écrit dans le message de news:

bonjour,

Donc la macro est activer manuelement par un bouton dans la barre superieur.
1- on selectionne un ensemble de ligne
2- on active la macro
3- Elle remplace les valeur presente dans les colonnes H,M,N,O,P,Q par
respectivement les valeurs 15,2,1,0,0,2

Je reste a votre disposition pour tout autre informations
Merci d'avance
Avatar
cliffburton57
rebonjour,

La macro marche parfaitement !
Merci beaucoup de votre aide.

Au revoir et bonnes fetes de fin d'année


Bonjour cliffburton57,

Ce que tu n'as pas mentionné dans ta question,
est-ce que les colonnes devant être modifiées doivent
faire parti de la sélection. La réponse à cette question
dans l'exemple qui suit est Non.


'--------------------------------
Sub test()

Dim Rg As Range, a As Integer
Dim Arr As Variant, x as variant
Dim Arr1 As Variant

Arr = Array("H", "M", "N", "O", "P", "Q")
Arr1 = Array(15, 2, 1, 0, 0, 2)

If TypeName(Selection) = "Range" Then
Set Rg = Selection
Else
Exit Sub
End If

Application.EnableEvents = False
Application.ScreenUpdating = False
For Each r In Rg.Rows
For Each x In Arr

Cells(r.Row, x) = Arr1(a)
a = a + 1
Next
a = 0
Next
Set Rg = Nothing
End Sub
'--------------------------------


Salutations!



"cliffburton57" a écrit dans le message de news:

bonjour,

Donc la macro est activer manuelement par un bouton dans la barre superieur.
1- on selectionne un ensemble de ligne
2- on active la macro
3- Elle remplace les valeur presente dans les colonnes H,M,N,O,P,Q par
respectivement les valeurs 15,2,1,0,0,2

Je reste a votre disposition pour tout autre informations
Merci d'avance