je souhaite que le code me retourne A+B ( A et B )

[VBA_première_fois]

bonjour le forum

voici mon problème

For Each cel In Sheets("Feuil1").Range(("A2:A" & Range("A65536").End(xlUp).Row)

cette partie de mon code me permet de faire des operations sur la colonne A
qui peut me dire comment le faire sur les colonnes A et B

c à dire je souhaite que le code me retourne A+B , ou , A et B et j'ai pas su le faire

 

[croco40]

Re : je souhaite que le code me retourne A+B ( A et B )

Salut VBA premier fois, et le forum
si j'ai bien compris en colonne c, tu veux la somme de A + B donc
cel.offset(0,3).value = cel.value + cel.offset(0,1).value
si tu veux compiler A et B donc
cel.offset(0,3).value = cel.value & cel.offset(0,1).value
Sinon envoie un fichier et je regarderai.
Suerte
Croco

oups, c'est pas cel.offset(0,3).value mais cel.offset(0,2).value

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

bonjour et merci pour ta réponse
en gros mon code est le suivant

Private Sub CommandButton1_Click()For Each cel In Sheets("Feuil2").Range("A2:A" & Range("A65536").End(xlUp).Row)
  Set nom = Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A:A").Find(cel.Value, LookIn:=xlValues)
  
  If Not nom Is Nothing Then
    Workbooks("Classeur2.xls").Sheets("Feuil2").Range("A" & nom.Row).EntireRow.Delete
  End If
Next

End Sub

il me permet de : recuper les données de la colonne A( contient des noms de personnes) de mon classeur actif et les recherche dans la feuille1 de mon classeur2, et les supprime

mais moi j'ai besoin que la condition porte sur les Colonne A(noms) et B(prenom)

car il se peut que deux personnes aient le m^me nom , du coup je cherche le nom et prenom ceci plus correcte

j espere que je me suis bien exprimé

merci d 'avance

 

[croco40]

Re : je souhaite que le code me retourne A+B ( A et B )

Resalut,
Peut-etre comme ca

Set nom = Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A:A").Find(cel.Value, LookIn:=xlValues) & Workbooks("Classeur2.xls").Sheets("Feuil1").Range("b:b").Find(cel.Value, LookIn:=xlValues)



Suerte
Croco

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

croco40

ça na pas marché

 

[VBA_première_fois]

condition sur A et B

bonjour forum , bonjour visiteur

le code ci dessous trouvé dans ce forum m'interesse mais je souhaite savoir comment faire pour que que la recherche ( ou la condition)porte sur la colonne A et b (mais pas seulement A)

For Each cel In Sheets("Sheet1").Range("A2:A" & Range("A65536").End(xlUp).Row)
  Set nom = Workbooks("classeur2.xls").Sheets("Sheet1").Range("A:A").Find(cel.Value, LookIn:=xlValues)
   
If Not nom Is Nothing Then
    Workbooks("classeur2.xls").Sheets("Sheet1").Range("A" & nom.Row).EntireRow.Delete
  End If
Next

je veux mettre Range("A2:A" & Range("A65536") & Range("b2:b" & Range("b65536"). et franchement je ne sais pas faire
Merci de m'aider et de m'expliquer

 

[miguelangelo]

Re : condition sur A et B

Bonjour VBA_premiere_fois,

peux tu nous mettre une copie de ton fichier (<48 k) pour visualiser ce que tu veux ?

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

ok je reviens vers vous avec un fichier exemple

merci

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

re bonjour

en piece jointe mes 2 classeur avec mon code

merci d'ouvrir en 1er le classeur1 tout est dedans

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

une solution ?
merci

 

[GBI]

Re : je souhaite que le code me retourne A+B ( A et B )

Bonjour le fil,

For Each [COLOR="Red"]cel[/COLOR] In Sheets("Sheet1").Range("A2:A" & Range("A65536").End(xlUp).Row)
  Set nom = Workbooks("classeur2.xls").Sheets("Sheet1").Range("A:A").Find(cel.Value, LookIn:=xlValues)
   
If Not nom Is Nothing Then
    Workbooks("classeur2.xls").Sheets("Sheet1").Range("A" & nom.Row).EntireRow.Delete
  End If
Next
MsgBox "doc propre"

Est-il indispensable d'avoir un nouveau classeur pour ton travail?
Est-il normal que la variable "cel" ne soit pas définie
Est-il normal que tu effectue ta procédure d'effacement de ligne en descendant?

Qlq pistes à explorer :
définir ta variable cel, boucler en remontant, ce qui t'évitera des biais considérables si tu effaces des lignes,
Travailler sur le meme classeur
Créer un champs unique pour chaque personne (t'évitant ainsi d'effacer des homonymes) pourquoi pas numérique

En espérant t'avoir aidé à clarifier ton sujet
Cdt

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

Est-il indispensable d'avoir un nouveau classeur pour ton travail?

oui
car le classeur2 existe déjà
et le classeur1 contient ma USF

Est-il normal que la variable "cel" ne soit pas définie

non je n'ai pas fait attention , mais pourquoi ça marche si c'est une erreur

Est-il normal que tu effectue ta procédure d'effacement de ligne en descendant?

oui car pour moi il n 'y a pas de différence en

mais tu voulais dire quoi par

Créer un champs unique

merci d'avance

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

alors personne ?????

 

[Pierrot93]

Re : je souhaite que le code me retourne A+B ( A et B )

Bonjour à tous,

un peu de patience.... c'est les vacances... et ce forum n'est animé que par des bénévoles....

Regarde le code ci-dessous, s'il peut t'aider, enfin si j'ai bien compris :

Private Sub CommandButton1_Click()
Dim c As Range, ws As Worksheet, i As Long
For Each c In Range("A2", Range("A65536").End(xlUp))
    For Each ws In Workbooks("classeur2.xls").Worksheets
        For i = ws.Range("A65536").End(xlUp).Row To 2 Step -1
            If c.Value = ws.Cells(i, 1).Value Then
                If c.Offset(0, 1).Value = ws.Cells(i, 2).Value Then ws.Rows(i).Delete
            End If
        Next i
    Next ws
Next c
End Sub

bon après midi
@+

 

[VBA_première_fois]

Re : je souhaite que le code me retourne A+B ( A et B )

ohhhhhhh les vacances

je vais l'adapter et je te dirais si ça a marché

merci